{
 "cells": [
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "# 07 - Beyond Confounders\n",
    "\n",
    "\n",
    "## Good Controls\n",
    "\n",
    "We've seen how adding additional controls to our regression model can help identify causal effect. If the control is a confounder, adding it to the model is not just nice to have, but is a requirement. When the unwary see this, a natural response is to throw whatever he can measure into the model. In today's world of big data, this could easily be more than 1000 variables. As it turns out, this is not only unnecessary, but can be detrimental to causal identification. We will now turn our attention to controls that are not confounders. First, let's take a look at the good ones. Then, we will delve into harmful controls.\n",
    "\n",
    "As a motivating example, let's suppose you are a data scientist in the collections team of a fintech. Your next task is to figure out the impact of sending an email asking people to negotiate their debt. Your response variable is the amount of payments from the late customers.\n",
    "\n",
    "To answer this question, your team selects 5000 random customers from your late customers base to do a random test. For every customer, you flip a coin, if its heads, the customer receives the email; otherwise, it is left as a control. With this test, you hope to find out how much extra money the email generates."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 1,
   "metadata": {
    "ExecuteTime": {
     "end_time": "2023-07-27T13:13:22.137169Z",
     "start_time": "2023-07-27T13:13:20.239916Z"
    },
    "tags": [
     "hide-input"
    ]
   },
   "outputs": [],
   "source": [
    "import warnings\n",
    "warnings.filterwarnings('ignore')\n",
    "\n",
    "import pandas as pd\n",
    "import numpy as np\n",
    "from scipy import stats\n",
    "from matplotlib import style\n",
    "import seaborn as sns\n",
    "from matplotlib import pyplot as plt\n",
    "import statsmodels.formula.api as smf\n",
    "import graphviz as gr\n",
    "\n",
    "style.use(\"fivethirtyeight\")"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 2,
   "metadata": {
    "ExecuteTime": {
     "end_time": "2023-07-27T13:13:22.154032Z",
     "start_time": "2023-07-27T13:13:22.138788Z"
    }
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<div>\n",
       "<style scoped>\n",
       "    .dataframe tbody tr th:only-of-type {\n",
       "        vertical-align: middle;\n",
       "    }\n",
       "\n",
       "    .dataframe tbody tr th {\n",
       "        vertical-align: top;\n",
       "    }\n",
       "\n",
       "    .dataframe thead th {\n",
       "        text-align: right;\n",
       "    }\n",
       "</style>\n",
       "<table border=\"1\" class=\"dataframe\">\n",
       "  <thead>\n",
       "    <tr style=\"text-align: right;\">\n",
       "      <th></th>\n",
       "      <th>payments</th>\n",
       "      <th>email</th>\n",
       "      <th>opened</th>\n",
       "      <th>agreement</th>\n",
       "      <th>credit_limit</th>\n",
       "      <th>risk_score</th>\n",
       "    </tr>\n",
       "  </thead>\n",
       "  <tbody>\n",
       "    <tr>\n",
       "      <th>0</th>\n",
       "      <td>740</td>\n",
       "      <td>1</td>\n",
       "      <td>1.0</td>\n",
       "      <td>0.0</td>\n",
       "      <td>2348.495260</td>\n",
       "      <td>0.666752</td>\n",
       "    </tr>\n",
       "    <tr>\n",
       "      <th>1</th>\n",
       "      <td>580</td>\n",
       "      <td>1</td>\n",
       "      <td>1.0</td>\n",
       "      <td>1.0</td>\n",
       "      <td>334.111969</td>\n",
       "      <td>0.207395</td>\n",
       "    </tr>\n",
       "    <tr>\n",
       "      <th>2</th>\n",
       "      <td>600</td>\n",
       "      <td>1</td>\n",
       "      <td>1.0</td>\n",
       "      <td>1.0</td>\n",
       "      <td>1360.660722</td>\n",
       "      <td>0.550479</td>\n",
       "    </tr>\n",
       "    <tr>\n",
       "      <th>3</th>\n",
       "      <td>770</td>\n",
       "      <td>0</td>\n",
       "      <td>0.0</td>\n",
       "      <td>0.0</td>\n",
       "      <td>1531.828576</td>\n",
       "      <td>0.560488</td>\n",
       "    </tr>\n",
       "    <tr>\n",
       "      <th>4</th>\n",
       "      <td>660</td>\n",
       "      <td>0</td>\n",
       "      <td>0.0</td>\n",
       "      <td>0.0</td>\n",
       "      <td>979.855647</td>\n",
       "      <td>0.455140</td>\n",
       "    </tr>\n",
       "  </tbody>\n",
       "</table>\n",
       "</div>"
      ],
      "text/plain": [
       "   payments  email  opened  agreement  credit_limit  risk_score\n",
       "0       740      1     1.0        0.0   2348.495260    0.666752\n",
       "1       580      1     1.0        1.0    334.111969    0.207395\n",
       "2       600      1     1.0        1.0   1360.660722    0.550479\n",
       "3       770      0     0.0        0.0   1531.828576    0.560488\n",
       "4       660      0     0.0        0.0    979.855647    0.455140"
      ]
     },
     "execution_count": 2,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "data = pd.read_csv(\"./data/collections_email.csv\")\n",
    "data.head()"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "Since the data is random, you know that a simple difference in means estimates the Average Treatment Effect. In other words, nothing can have caused the treatment but the randomisation, so the potential outcomes are independent of the treatment: $(Y_0, Y_1)\\perp T$. \n",
    "\n",
    "$\n",
    "ATE = E[Y|T=1] - E[Y|T=0]\n",
    "$\n",
    "\n",
    "Since you are smart and want to place a confidence interval around your estimate, you use a linear regression."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 3,
   "metadata": {
    "ExecuteTime": {
     "end_time": "2023-07-27T13:13:22.176128Z",
     "start_time": "2023-07-27T13:13:22.157300Z"
    }
   },
   "outputs": [
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "Difference in means: -0.6202804021329484\n"
     ]
    },
    {
     "data": {
      "text/html": [
       "<table class=\"simpletable\">\n",
       "<tr>\n",
       "      <td></td>         <th>coef</th>     <th>std err</th>      <th>t</th>      <th>P>|t|</th>  <th>[0.025</th>    <th>0.975]</th>  \n",
       "</tr>\n",
       "<tr>\n",
       "  <th>Intercept</th> <td>  669.9764</td> <td>    2.061</td> <td>  325.116</td> <td> 0.000</td> <td>  665.937</td> <td>  674.016</td>\n",
       "</tr>\n",
       "<tr>\n",
       "  <th>email</th>     <td>   -0.6203</td> <td>    2.941</td> <td>   -0.211</td> <td> 0.833</td> <td>   -6.387</td> <td>    5.146</td>\n",
       "</tr>\n",
       "</table>"
      ],
      "text/plain": [
       "<class 'statsmodels.iolib.table.SimpleTable'>"
      ]
     },
     "execution_count": 3,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "print(\"Difference in means:\",\n",
    "      data.query(\"email==1\")[\"payments\"].mean() - data.query(\"email==0\")[\"payments\"].mean())\n",
    "\n",
    "model = smf.ols('payments ~ email', data=data).fit()\n",
    "model.summary().tables[1]"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "Sadly, the estimated ATE is -0.62, which is pretty weird. How can sending an email make late customers pay less than average? Still, the P-value is so high that this probably doesn't mean anything. What you should do now? Go back to your team with a tail between your legs and say that the test is inconclusive and you need more data? Not so fast.\n",
    "\n",
    "Notice how your data has some other interesting columns. For example, `credit_limit` represents the customer's credit line prior to he or she getting late. `risk_score` corresponds to the estimated risk of the customer prior to the delivery of the email. It makes sense to think that credit limit and risk are probably very good predictors of payments. But how can that be useful?\n",
    "\n",
    "First, let's understand why we can fail to find statistical significance in a treatment even when it is there. It could be that, like in this case, the treatment has very little impact on the outcome. If you think about it, what makes people pay their debt is, by and large, factors outside the control of the collections department. People pay their debt because they find a new job, manage their finances, income and so on. In statistical terms, we can say that **the variability of payments is explained much more by other factors other than by the email**. \n",
    "\n",
    "To get a visual understanding of it, we can plot the payments against the treatment variable email. I've also plotted the fitted line of the model above in red. To help visualization, I've added a little bit of noise to the email variable so that it doesn't get smashed at the zero or one. "
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 4,
   "metadata": {
    "ExecuteTime": {
     "end_time": "2023-07-27T13:13:22.300753Z",
     "start_time": "2023-07-27T13:13:22.179412Z"
    },
    "tags": [
     "hide-input"
    ]
   },
   "outputs": [
    {
     "data": {
      "image/png": "iVBORw0KGgoAAAANSUhEUgAAAbQAAAEGCAYAAAANNmA4AAAAOXRFWHRTb2Z0d2FyZQBNYXRwbG90bGliIHZlcnNpb24zLjUuMiwgaHR0cHM6Ly9tYXRwbG90bGliLm9yZy8qNh9FAAAACXBIWXMAAAsTAAALEwEAmpwYAABgiElEQVR4nO3deZgcVbn48e9bVb3NdM90z5pJJoHskIQk7KsLIIjbhesVL/pzQxAVrtvVK+CGG4oL6nUBlUXxuiB6L4K7iCLITiD7wiQkJJNl1u6Znp7equr9/VE9YQxJSAzJ9GTO53nmme7qqp5T03Pm1Dn1nveIqmIYhmEY45011gUwDMMwjBeDadAMwzCMw4Jp0AzDMIzDgmnQDMMwjMOCadAMwzCMw4Iz1gV4sQ0MDJiwTcMwjMNcfX297LrN9NAMwzCMw4Jp0AzDMIzDgmnQ9qCjo2Osi3DAzDlUB3MOY2+8lx/MOewL06AZhmEYhwXToBmGYRiHBdOgGYZhGIcF06AZhmEYh4XDbh6aYRjG4UyBzrzQlfdpjVm0x5TnTciaoEyDZhiGMU4o8KftHtcv6afkK2FL+PDxDZzbZptGDTPkaBiGMW505mVnYwZQ8pXrl/TTmTfNGZgGzTAMY9zoyvs7G7MRJV/pyvtjVKLqYho0wzCMcaI1ZhG2/rE3FraE1pj5Vw6mQTMMwxg32mPKh49v2NmojdxDa4+ZnOxggkIMwzDGDQHObbOZd3aLiXLcDdOgGYZhjCMCTI0pU2NCEPdojDBDjoZhGMZh4ZA0aCJyq4h0i8jKUdsuFJFVIuKLyAm77H+1iKwXkXUi8spR248XkRWV174pIqanbRiGYQCHrof2Q+C8XbatBF4P3D96o4jMAy4C5leOuUFE7MrLNwKXAbMrX7u+p2EYhjFBHZIGTVXvB/p32bZGVdftZvfzgdtVtaiqG4H1wEki0gbUqerDqqrAj4ALDnLRDcMwjHGiGu+hTQG2jHreWdk2pfJ41+2GYRiGUZVRjru7L6Z72b5HB7o6qlkhtjqYc6gO4/0cxnv5wZzD7Nmz9/p6NTZoncDUUc/bgW2V7e272b5HL3Tye9PR0XFAx1cDcw7VwZzD2Bvv5QdzDvuiGocc7wYuEpGIiEwnCP54TFW3A1kROaUS3fg24K6xLKhhGIZRPQ5JD01Efga8HGgSkU7gGoIgkW8BzcBvRWSpqr5SVVeJyB3AasAFrlBVr/JW7yWImIwBv698GYZhGMahadBU9U17eOnOPex/LXDtbrY/ASx4EYtmGIZhHCaqccjRMAzDMPZbNQaFGIZhGLuwbIcteTFJiffCNGiGYRhVToHl2sSN93ZT8nXnsjHnttmmURvFDDkahmFUuc688I1lmZ2rVZd85fol/XTmTXM2mmnQDnMKbMkLT/QrW/JiFpswjHFkpP6uzngU9B8H1Eq+0pX3x6ZgVcoMOR7GLNvhT9s9rl/Sb4YpDGOcUdhZf8+aFqer4NOARV3oudWqW2MWZk2055ge2mFKgUxiCp97rJ8h1wxTGMZ4osDqrMWT3SXOmhZnXV+eyxYkSRd9Sj47L07bY6YxG8300A5DI1d2j+0osWGgjAhMqrGpC8nOYYpgtVvDMKrNSP393GM9bBgoE7GFdx+TZOWOAd69oJ5jm2PMS5oox90xPbTDUGdeuH5JPxZKxBZUYcewt/PKLhimMAyjGo3UX18VESh6yvdWZDi6uZa/bM4xL2kx1TRmu2X+sx2GuvI+JV95qDPLu49J7mzULDHDFIZR7Ubqb9iClpiNAgVPUUz9fSFmyPEw1BqzCFtCf97lse053nNMParCv8yoZV7CN1d2hlHFRupvb9Gnv+CRjFhEbOHl7TWc3myZ+rsXpod2GGqPKR8+vgEnFGZrzucPm3Ic1xI2jZlhjANTYsp7FjXgKdSELFxfuWhOHbcs62ZN1jJTcPbC9NAOUyELXnNkLa44RKzguWEY1U2Be7Z7/HBVhnOPiGMLHNsS5aEtWeY0J3j3X7pwxEzB2RPzb+4wtK0gLOkuUfIFR+ChbTmue9yE6xtGtRsJCOktePxk7QC3rR7gyge6OX1qgu+vzOCrmYKzN6aHdphR4KFul+8sz1BwPaKOzbuPSfLY9pwJ1zeMKjc6IGRSjc2OYY+ipwyVlGTYIjyqC2Km4DzfIemhicitItItIitHbWsQkXtEpKPyPTXqtatFZL2IrBORV47afryIrKi89s3KytXGKJ154TtL+3fmfBsJ+T1tcq0J1zeMKjcSEAJQFxKOTDjMrA9xbHOYetv7h33NFJznO1S/jR8C5+2y7SrgXlWdDdxbeY6IzAMuAuZXjrlBROzKMTcClwGzK1+7vueEpsD2vPKKI+K855gULTGb5qjFG+fUMSsVRjFJcgyjmo0EdIUtIRWx+NeZCf7rhAaaI8qHFqV2NnYmU8juHaoVq+8XkSN32Xw+8PLK49uA+4ArK9tvV9UisFFE1gMnicgmoE5VHwYQkR8BFwC/P8jFHxdGsgt88fF+nh4oE7aEyxcmCVvCN5am+fvWHHHH3Eg2jGomwLltNgte0RLcOljaz283BkEgH1gQ4+azW+g266Ht0Vj2V1tVdTtA5XtLZfsUYMuo/Tor26ZUHu+63SDIyP3Fx/sZdpW2WgdflR+vHWTI9XnHvHrOm57gpVPjfHd5hi3mRrJhVC0BfIWblvczMqZS8pUvP5lGgBMaxGQK2YNqDArZ3eeke9m+Rx0dHQdUkAM9/lCxbIdl9hTWZYqogojQXOPQELFoiDp84fFecmUlYsO7FqRY3lekXNqK77ljXfR9Ml4+h70x5zD2xlP5t4Sayebzz9u+vitNodwzBiV68RzI5zB79uy9vj6WDVqXiLSp6nYRaQO6K9s7gamj9msHtlW2t+9m+x690MnvTUdHxwEdfyhtyQsbNgwTsW2KnqLA1iGXC2enuHF5mqHySIAI3LIqw8KmVsJtM5g6Dsbfx9PnsCfmHMbeeCt/NC8kYuWdwV0A6haZ1Zpiaiw5dgU7QAf7cxjLIce7gbdXHr8duGvU9otEJCIi0wmCPx6rDEtmReSUSnTj20YdM6F15X0e2pp7Lm8jEHOEOakIIs91bS2BVNQm7yo7CmoCRAyjSo0Eh7TGbM47Ms4rj0jwqVMnMWUcXISOpUPSQxORnxEEgDSJSCdwDXAdcIeIXAJsBi4EUNVVInIHsBpwgStUdSRe9b0EEZMxgmAQExBCEOqbKyuPbc9x8fx6hspBY+UrRG2hORYEiUYdIVPwWNlX5NaVaa4+0QSIGEY1EuCcNpuCl+Qrlcz7f9hQwj21zdTZvThUUY5v2sNLZ+9h/2uBa3ez/QlgwYtYtHFvJBT/imMbWNNX4s+bs5w2Oc7chjCtNRaXLUjx/VUZskWP3rzHpfOTPLwtBwSZBuad3TIuhh4NY6LpzAtff7KfuCO8pL0Wz/NZ3ldiZl0tfUWlJ+8xvc7h6IRvUj5VVGNQiLGPRi/RXvIVF+HS+Q38cHWaOzoGyRR9PnJcA2+YmWB6fYhnB8rc1zlE2X8ucspkGjCM6qPAU/0u6aLHv8ys49vLMniq1IYsmmMhvv5kL1uGPBJhi+tOb+bfj3RMo4bJ5TiujeR9G7lxXPKUqx/s5rTJtXQNexQ8n6882c+w6/Otpf0oylDZ33m8yTRgGNWpMy88nS7x6ukJblqZoeApZR/CtvCJh7s5a1oCBbIln6sf7GFN1tRjMA3auDaS922E6wcLAYLiWNAUdUiELKYmwtQ4wqxU2GQaMIxxYCTQa15DhETYojFm0xyzidrCsKvEHGiK2TTGbMq+0jnkvfCbTgBmyHEcG8n7NtKoWRIEgQhCKmLTk/cI28K6dJGT22roG3b5+MnN1NpqMg0YRhUbqdsxRyi4PgUvqKvxUIhaR8i70JP3sASmxh2mxm3Af6G3PeyZHto4NjrvW8mHoZLPF05v5omuYUIWvGtBks+f2kzEFu7fmmOorFz7aA+tMctkGjCMKqQE80q78j7vP76J65f0cumCFJYIvkJ/0ePTpzZzz7NZAEKW8MY5ddSFzEgLmB7auDaS923e2S2szvis6S/i+8q7jknRNexxw7I0/YXgKu6S+UkUEwhiGNVq1yCvVx6RIO/BA51DvOWoeiJWkAUonXc5f2YdiiIID3TmeGV7lPaoqdOmQRvnBCph9xbLe5XPPNbHZ09t5nOP9lbup4EtcNOqDP/9stZRgSDmis4wqsmuQV4ikCn6KPDD1RlSEZuILbxqepxbVmawLVCFeQ1hU6crTIN2mGiPKXMawtSHBM9XmmI2JU/xNbi3FrKEoqtccWzDzrlr5nrOMKrHSJBXKmJxclsNEVv4+ElN/GB1hiPrQtgC/3lcI925MrUhoeAq7XGHDyw2wV0jTIN2mBDg+EaHNx1Vz9ZsGQHSxSDyyRahPe7QnXe5ZeXgzghHk3HAMKpHa8yiNWazuLWG767IUPKVo1Mhrjqxkcd35MmV4Xsr+nnvMSluO7eNzVmXoaLHqS0OYnpngAkKGddGbiA/0a9syQc3jX+1IYsCF8xMYIng+hCy4NXT4+TKPiU/uI92/ZJ+Os0yMoZRNdpjyuWLG/l+Zd5ZbciiM+dx2Z93IJUm67iWGtb0l4mHbUKWcGxLlLaoacxGmB7aOLXrDeSwJVxxbANlXyn6yp3rs7xlbj1iQdwR7ugY5DXTE7g+hC0THGIY1UaAWltpq7EpeEEdLXpKXcSipdbhe4/2UvSUeEhorrH5ydoMvsKnT240oy0Vpoc2Tj0vS4ivrO4r4SmUPOgv+tyyOsMtKzPc9cwQQ+UgTN+pfOImS4hhVJ/WmEXcEUI2OBLc/z5/RoIblqUpekrUFqK2xc2rMrzrmAYsgS8+bkZbRpj/aOPUrllCBsvKbzZmec8xKf6wKculC5I7M+0L8JlTmljZmydsmSwhhlGtpsSUixek6M97FD0lZguLmyP05F0cC+ojFgMlj40DZVb1FTn3iARRO5i3Zpghx3FrdJaQkg/bcx5T4g59eZdzjkjgCHzx9BaeGShyxuRaZiQszp7cTHfeN1lCDKNKbc0Lv+oY4HOntbCku0DUFmodYWZ9mJKnbMu5wW0DO7g//v2Vad63MGXC9itMD22cGp0lxPUhZAuXLkhS61g81R1kCrEFzmyvJepAzoW2mHJCg5gsIYZRpbryPl15jy2D5Z25WTvSZd5yVB1hW0iELdrjDlcsTPGHZ7O4PhzdGDajLRWmhzZOjc4SsnHI56HtBTzPJxYSLppbz00rM3QOuQBctiBJIiSsqwvx+iMcQmNbdMMw9mAkdL8uavH1pf2UfWVeKsRlx6Q494hacmXFEoiHhLaaIFlxQ8Qe62JXjTFv0ETkA8C7CP5H36Sq3xCRBuDnwJHAJuCNqpqu7H81cAngAe9X1T+ORbmrwUiWkPaYkCmGKfmwoq/ILzqyWChvnluPXUmXc0RdiJIPyzIWubJHbUhoiwqTo6a3ZhjVoj2mfOj4Rv64eZjLF6aYmgjRFLX46N97GCx5xByL3oIXRDUvSjK51uGprgKNkRqOTvgTvi6P6ZCjiCwgaMxOAhYBrxWR2cBVwL2qOhu4t/IcEZkHXATMB84DbhCRCX95IsC0uIVlwbCr1IeFC2bV8dN1A/xwVYbvrUjTU/D5/oo0y/uKPLy9wEf/3sPtG/L8tcszI++GUSUUWD/octPKDD9aM8BVf+9mx7BPd94l5lgMl30aIja1IYu5qQj9eY+bV2W47C9d/Gm7qctjfQ/taOARVR1WVRf4G/CvwPnAbZV9bgMuqDw+H7hdVYuquhFYT9AYTniNEYvmqIMIvGJanJtXZnB9xdVg4c8blqV56ZRavrMsTW/R59jmGn60ZoAl3SUT8msYVWJN1uIrT/QRcyx68h55T3k6U6Q55tBb8Ig4Fn0Fj+Gyz3BZuf6pNOdNT+CrSZYAYz/kuBK4VkQagTzwauAJoFVVtwOo6nYRaansPwV4ZNTxnZVtu9XR0XFAhTvQ4w8ly3Yo10zltEkh6iNhpsQdYo7F91f00533d2bd3zrk4isgSsFV8mWP9V1pCuWesT6FPRpPn8OemHMYe+Oh/M9EptKbd0lFHWwL6sM2K7rzfOWMFu7fNkzIEu7eMMjlixr4ZUeGN82tY3YyRL1Tw0Odg1Vfl+HAPofZs2fv9fUxbdBUdY2IfAm4BxgClgHuXg7Z3eXHHnvZL3Tye9PR0XFAxx9qCvRlYGNvmQ/8bTuDJZ+oI1xzchM/X5dhfWWRQCWYrKm+EHWEWMhmVmuCqbHk2J7AHoy3z2F3zDmMvfFS/nLWImynUYXGaHA35fhJNVz1YDdSWcD3P49r4qmuIY5rqeGmVRnqwxYFV3nvwhRzJtUwJZoc25PYi4P9OYz1kCOqeouqHqeqLwX6gQ6gS0TaACrfuyu7dwJTRx3eDmw7lOWtVlvyQvewz2cf7SVb8rEtyLvKZx7p5R3zG/jwcQ201tj898taednkGJsGC7zt6HqObzEhv4ZRLeYmfL54egsLG0NcfWITXz6jhXs258gUPbqGPTyFbyzt46TJCW5bM0BDxMYS8FW5c0MWb4JX5bEeckREWlS1W0SmAa8HTgWmA28Hrqt8v6uy+93AT0Xka8BkYDbw2KEvdXXxgdUZl2EXcmUfH/D9IHVO2VcSYcEWhy890UdfIZiAffUJjZzS4tAWMVGOhlENFPjzdo8ntmU5b3odH3+om4vm1PN0ukRb3KE/7zFQ9MmWfcI2xByhrxCsqDGpxiZqQXfeZ9oEzs865j004H9FZDXwa+CKSnj+dcA5ItIBnFN5jqquAu4AVgN/qOzvjU2xq8earIWKFeR6c577Y3Y1mHAdsS2++Hgfw66Sd5XNWZevPdWP55s10QyjWozkZz1hcoJPPtzDUFnxCerwtiGXppi98/6K54NjCaVKl6w77wEmP+uY99BU9SW72dYHnL2H/a8Frj3Y5RpPuoZdsiXl52szfPLkJj7/aC/ZcpDI9NOnNFHyPMq+YktwFaiqDJVNtn3DqCYj+VmLXvAVtuAPm7J8aHGK3qJPzBZCljA3GcIW5coTGvnUwz3k3cpqG2ahz7Fv0IwDo0CmpKzqK7Gyv4z9TJbrzmgFVVJRm0RIeKK7QLbsk4rYhCoTreMhMfnfDKOKtMYs5tSHmJZwEKDoB6MsJR9+v3EIx4KIYyHT4/x47QBHxB2+fEYLK3oLhG0xC31SHUOOxgHozAvfXdbPQ1uH+NxpzSzpKfL++3Zw1YPdPLQ9z3v/soOCq1y+MEW66NEQsZmWcPjEieZqzjCqSXtMufiYBn60Ks2XzmhhStzhrUfV8fOnB7GtYIhxx1CZO54e5JMnN3Fsa4wfrMowKxlhbiqCZQZbTA9tvBsZprAsIWbDhbPrEQnujd27eYgdeY9s2eeR7cO855gkxzXHWNRgmQTFhlFlFOjOu0yui/D1J3t5y9x6piVC9BY8VIOLz+aYw45hl6XdRW5/eoCL5yXZOlTillUDfPH0Ft4wbWIv9GkatHGuNWbhIZzeVsvyvjI/XTdA0VMcAU+hrdZBEDZnPW5dNcDrXhtnWsysnWQY1WZN1iLvetyyMkPBU3rzPv3FIkKQuFaAbTmXtloHT6HgKjevynDd6S0Mu8p3lvZzSnMLUyfwyIsZchzn2mPK5QsbEIFfdgwECU1rbd56dJIPHZviWy9vpT4ivOWoej5zSiO5sk9nYaKPtBtG9dmac9mQKVEfthBALPjNM8FivYmQRSpi0x53+ORJTfTkiohAXchiQ6bIpBob0Am/0KfpoY1zAhzXFKIxZvP7TUM8vj3Hexc1cMfTA5w5Nc4779lOXdjCEnjD7DpuW9PDOdPinNIa5szWiT08YRjVQgHHssiWfXKuT2uNTa1jkS76PLR1iC+c3sKT3QVcH25c3s875icJ28J9WwtEbKEuJIQtE+hlGrTDwOy4z/a88vaj6miLh/B9j2tPb+FDf+umKRY0Wp7C/60f5MLZCb6zPI21MMXsupoJPTxhGNWiMy9866leTm2r4Z3zkvxyfZZfdgxw2TFJwpbwwb91UfKUpphNuujxsQd7uO3cyZwyuUSu5POaGQmObzZZf0yDdhgQQPBJRGx+8fQAZ02L8+QzQzydKSHA5FoHRckUfSbHw7RELQoeZh6aYVSJrrzP1pzHj9YO8O9z6vjKGS08siNPzBaObogQD1kQgkzRw/XBRcm5Pneuz9Kb96h1hIWNDWN9GmNun++hiUiziMQrj20RuVhE3iYi5j7cGFFgc164t0uJOiFuW53h/Fn1fOHxPjyFWkewJIicciwhGbHpzJb5f0clidpM+KwChlEtWmMWNY7QV/D5/aYhHBvueibLz54epC5s8fpZCc6fmeCtRydpqbGJOUKNY/FoV6GS7scsHwP710P7DfAe4CmCTB2vA8rAscCHXvyiGXujwJ+2e1zzaB9bsi5T4g4XzEwQtYP1zx7cmuMd85PcvDJTyTogXL4wyc/WDXDFogam1TLhhycMo1q0x5SrT2zgm0vTnDUtztZsmQtmJvj1hkGW9xb465YcGwbKhG3hsgVJ5jeE+c36DLYE9b3kQSpsRl32p0GbAyytPH4LcBrBki+rMA3aIdeZF774eD+bBl0SYQvXh5+tG+RLZ7TQHLNZmy7TVxzkzXPrcSxY3BzFFiVXVtZnSsxP1SJM7Igow6gWApzbZtMQa+F3m4b44eoBVJWPndTM157soyfvMb0uhKvKnzbnmJZwiEVCJCM2jiUMlnzqwtaEDwrZnzEnDwiLyDHAgKpuBjJA/GAUzNi7rrxPzlXqwhZRWxCUsC3kXZ/PntrEN17WyhtmJ3AsaI3Z3LCsj40DZS47JsmSrmE6hyZ8TmfDqCoj88yGyhpMpkbYki1R8pVh12fHsMtwWenLe1hicWxzhGTEojfvVkZgTPaf/emh/YEg030jcHtl2zxg64tdKGPvFMj5QnfeY7Dk0xKzELFAlZV9RQThppVp6sI2jgVvnltPPGRx2uQYV/xlB28+qp54WPAAe6xPxjCMnabFHUJWsPTTrHqbeY1RPH8QgNqQRV/BI2QJT6eLLGqOcuOZLfxifY4FjRGObQpN+FGX/WnQLiFYm6wM/KiyrQn49ItcJuMFdOaFbyzp5R3z6rltzQB1EZuCq7x+VgJH4IYVacpeEAwyqcbh28v6uekVk/nakl56Cj53bshS6wgxp4bj6id2BTCMarKg3ic/Pc4xjREaog5PdOX5wuktfHd5P090B3POLl+Y4q9bhrh/2zDfflkrr5xaw7DnMSdu6vL+NGjvU9Wvjt6gqveJyH++yGUyXsBIiG926xDXn9GCD5T8IPXNaVNqKbqKq8EQRtFTEmGboudhiTA17rB1yCUWstmWK3NsvZlcbRjVwAd+ucnlK0v6uGBmHb/d1E9/wSfvpvn8qS2c2hbDVfjJ2gF2DHtYAusyZSK2T0vUMvWY/buH9qk9bP/EgRRARD4kIqtEZKWI/ExEoiLSICL3iEhH5Xtq1P5Xi8h6EVknIq88kJ89Xo2E+J4yOc4jXQXWpkuA8MygS9QW7FFptxXoL3hEbJvzZ9VT8pVUxKYjU6Iu7Ez4MF/DqBZrshZXP9jDmVPjfGd5Gs+H3rzHUFn5ypI+XIVvLU3Tmw/uf4csYVlPgZJnsT2PqcvsQw9NRM6qPLRF5Ez+cZHjGUD2n/3hIjIFeD8wT1XzInIHcBHBvbl7VfU6EbkKuAq4UkTmVV6fD0wG/iwicybaqtUjIb4Pd5UYdpX7Nmd5+anNXHd6Cz9bl+H9i1P8dO0gCNgCF89Lsaq3wKRam3+dmWB2MkznUJkNmQI1VnhCh/kaRrXoHHLJe4oItEQtXjcjTrasWMCD23LMa4hQ4whFX4lYwqULkty5fpC5qQiKCdmHfRtyvKXyPQrcOmq7AjuA970IZYiJSBmoAbYBVwMvr7x+G3AfcCVwPnC7qhaBjSKyHjgJePgAyzCujIT4ttTU8pctw0w6MsH92wrcvnaANx9VT2uNzUVzEwyWgsrgCPiqIBa/2zREtuQz7CqfOKmRtpqJHeZrGNWiPe4QtYVptTb/PreeG1ekyZeVmCO8c36SkAVvPqqeiC0UPeUXHYMMl32mxB1c35vwIfuwDw2aqk4HEJEfqerbXswfrqpbReSrwGYgD/xJVf8kIq2qur2yz3YRaakcMgV4ZNRbdFa2TTgCLKr36S9GuX/rMDetzFD2lf6iz3eWpxl2laaozWDJZ2rC4asvaeFvnXmSIYsdOZf6iM0PVmU4r711rE/FMAwgFVY+cVITM+odPvJAD64fLOpZ9pU/PDvE/MYIx7dE+dLjPbgqRG3hv45r5qYVffzn8U1MmeAh+7AfQSGjG7Nd012p6j8VXlO5N3Y+MJ1gTtsvROQteztkd0Xb084dHR3/TLFetOMPNst2GAhPw1PF9YMFOyM2FLygZxayhLqwRbbk87fOPN9bmeaSeUnKquTKPpSLbOhKUyz3jPWp7FW1fw77wpzD2Kvm8lu2wwpnCvdvGaIuUk/nUJmGqE3MFso+PDNQ5omuAr9cP8h/Hd9IIgTPZl2Gyx69BZ9Ng2W6B0oco134njvWp7NXB/I5zJ49e6+v73ODJiLHAd8BFhIMP0LQwCj//HSmVwAbVbWn8jP+jyADSZeItFV6Z21Ad2X/TmDqqOPbCYYod+uFTn5vOjo6Duj4Q2FLXnB7XCK2hSVCImwBgi1CyVdKvtKT94jZwvT6MHlXuWVVhjcdVc/fOnMkYlFmtaaYGkuO9ans0Xj4HF6IOYexV+3lH6nLbYkI6zMlLBFUg1UytuVcwrbgKWSKPl98vJfPn9bCD1cPUvR83jS3nsnxEJ94KM3PzplR1StoHOzPYX+iHG8D/gqcQBAMMoOgZzXjAH7+ZuAUEakREQHOBtYAdxPMeaPy/a7K47uBi0QkIiLTgdnAYwfw88e1rrzPPZuyzE2F+OCxKRqiNg9uy/G+RSmmJRyyJZ/akPDxk5sIice3Xj6Jd86v59jmCE1RmysWN5hhCsOoAn1FH9uChU0R/rRpiA8dm6I+YqFAPCS8e0GSh7flaIraNMccwhZcdWIjXzq9hXOn1dA7XGaobBb43J95aEcAH1fVF+0/oKo+KiK/BJ4EXILEx98nSKd1h4hcQtDoXVjZf1UlEnJ1Zf8rJlqE42htNRYzkhEaIoKbcDizvQbXB0+VL5zWzNp0idbaELcs7+Pl0xLcuLyX+ohFKjLM+xY38MCWLFE7wbltZi6aYYwVBZ4d8vn0I71cNKeOmCM4IrzqyDhttQ4bB8r8bWuOZ4dcVKE2JHRkSnxzaZqQJbxvcYo5yRDT4vaEDwzZnwbtTuBc4I8vZgFU9Rrgml02Fwl6a7vb/1qCbP8TlhLMOekqKnduyHLSpBau/HsXRU9JRmwaoxaeD8e3Rnl4e55zj0zwjaVpSp7SX/BQhese7+XjJzVx/ZJ+5p3dUtXDFIZxOOvMC99Z2k9L1GJ2Ksy8xgjvvncHqsqsZIhzj0jwdLpMvJK39d9m1/GTtQMIQfTyt5emuXxRkg8f12hyOe7HvlHgThH5O0G4/k4vdvSjsWcjy8Zcv6SfVxwRp9YR+gseRU9JRYNbmWdNi/O9lRlan7HJlnz+6/hGGiJBHriyH4zLFzxluBzcZzPzVwxj7HTlg1sDJ7XV8nhXgTnJMKmIRdgWBkrKX7YM8eaj6pmbChG2LW5c1k/XsEe4csMo7ymuL9TaikzwsZb9uYe2GvgS8CCwYZcv4xDpzAvXL+mn5CtzUmHOmhanpcamtcahJ+/x6iMT3LwyQ8nTStorix+sznDRnLqdaUsFCFtCW9zBQ8xCn4YxhlpjFqdNruW7KzKUfagPWySjNnlXsVQ5a2otjgUR22LjQIlsWSu9MxAJwvcjNsRC9gQebAzsT9j+Zw5mQYx905X3K+mrLAZKHjPqQqzqLfDRExr5rwe6kcqCfy01Nv0FL1ileshlVjLMtLjDsKtEbeF9ixtY25c3S04YxhhrjylzGsIUPeWJHTlOaglz+cIU/7M6w+lTavneijQNUZufrB3gsgUpLplXz0/WDfJstkzIgvcck2J6ncN/P9nHv82pm9D3xPfr0lxEzhGRW0Tk15XnJ4xKjWUcAq0xi7AlnNxWw9eeTBO2hf6SMr8hzGULkhzbHKE97tBf8HB9UIWYLTydKfGF01v5xsta+egJTUyqsTiqMVpZcsIwjLEiwLENDrOSIc6eFueLT/Qzsz7Ex05q4o6nB6kNWbi+ErUtbn96kPa6EG+YFedLZ7Rw27mTidrwdKbMEckI1y/pn9A5Hfe5QROR9wE3Ah3ASyub88DnD0K5jD1ojykfPr6BGtvivCPidA+VmZN02JYr4wNffryXN8yuoy1mc/nCFP82O8GXX9LKPZuHuH9rjmzJ54nuAmHHJiK+WXLCMKrA1JjywcUNhC0hHhJ25FwyRY8LZye4cHaCN86uY1rCpuQpg0Wfe7bkAPjMI918eUk/RU+ZVBumNiQTOnR/f4JCPgicraqbROTKyra1wNwXvVTGHglwTptNzoXrl6YZdn1eMy3Gexc38fuNPZw/q465SZsPn9DEV5b0UXCVH68d4J3zktSFhNqQxW2rMzy6Y5grFqZe8OcZhnHwCXD6JIeWGhtX4dvL+nnjnHq+uyKD6yuOJbx3YYq7NwyyY7jMpQsasNSjr+ATtgXXh7XpIie01TJpAudn3Z8GLQFsqTwe+W2FgNKLWiLjBW3NC99a2k99xCLiCG+d30BIPL5w+iT+vCWHh81tq/tBlfNnJKiLCHOSERIRYV26yPzGMJmiz5ee6GNRYxvzExP3is4wqkV/UcgUXe7ekOW1M+J8/rFeEmErWC7GV763Is0PzplMwfPIlZXmmhBvnFOHJUJ7rc31T/ZjW8K/Tq+FqGnQXsj9BMu4jJ4D9n6C7CHGIdSV98mVlZaoxWtnJOjLuzy8vcxdG7JkSj5/2ZLjDbMSRGzhR6szvHZmHR+6v4vmmE3B9XnzUfX8cdMQ6ZJP55DH/MTEHXM3jGqRLrq4OhKGD0Nlpeh5NEZtoo5gCSzpyvOVJ/upcYTLF6U4uiFMW43Dit4CIsJQyWfLkMe8CVqn9yco5H3Av4rIJiAhIusIMniYFasPsZEFPl/aXktfwefpTJlvL0tT8JS+gkfJU366bpBtwx5nTktw08oMBU/pGnaJhSy+tyLD2dPiRG2hPf7PpuE0DOPFFHIcakM2vXkPuxKOX/ahvxgkQ+ovePQVfRTIucr3VmRY1Vdi85DHEXUROodcGmP2hK7T+xO2v11ETiRYf2wawfDjY/9spn3jn9ceUz51cgOZcjBJetNAmZYam6aoxYWzU3gaLDuxoDFE0RN+uzHLYMmn5AXDEJYEmfg/dmIjR5vhRsMYUyOZf7YPuQyWXD6wOIWvyjUnN/Gd5Wl8DabavOeYFL/bmKU5FiRMKLg+IGwZLJGL2YRt4f2LGyZ0nd6fIUcqeRwfrXwZY2xDpkyNLRzVEMFGeVl7sHR7yQsqwHVntLB9qETEFpIRi/6ChwCTax2ObYmQcNSE7BvGGBqd+eeTpzTjY+Oqxy86sjRGLS6aU8ecVJhU1Oaj9+9gY9bDAhpjNmVfcX2fOc0xmqIW75xXzwnNYSwmboO2P2H7i0TkLyLSLyKlyldZRExQyCHWmReWdJf4n7UDJGMO1zzczTWntHDj8jTFSi+sLmLx8Ye6ObI+xIWz64iHLKYmQoQs4dXT47i+8tlHJ/acFcMYayOZf2pDQsSxqA/b/G7TEChsG/L447NZVvUV2ZYtcekxDdSHg+ZqqOTz0eMbWdwSZfNgiVrH4sTWyISfhrM/PbSfAf9LEAiSPzjFMfZFV96n6EPBVQqu0jnk0lPwqA1Z1IaCfQaLPnlPGSz5/GTdAFef2MSmgTIntka5eUUfUxMhhj2Tx9EwxtLoPI7/cd8OXjktzrp0ieaYjW3BOUck+N7yNDHHImrDF05vYX26hIdS40BHusgNyzPEQhaz6iZuhpAR+xMUMgn4lKquVNUNo78OVuGM3WuNWURsiDrCzKRDxBZClpAr+/QVPPoKHq4qMVsIWxaZos+yniL/u36Qj/69mwvnpqh1guSnJo+jYYydkTyO31uRwfeDpOFhS+jJe1wws47vLU9T8oNRl86cx3/e38VAyeeXHVlW9ZcpelD0lJtWZHi0qzThR1z2d4HPNx+sghj7rj2mHN8c5r3HJCm5Pted0UJfrsxnTm0iagshC6K28PnTmunLl/nPxSme7B7GU6U77xK24K71A/zHIpPH0TDG0kgeR1+Vsq/8bmOWSxckCVkCKAVPmVTjELKDYK6ip9SGhbceVUd7rU3MFt61IMl5R8YJycTOEgL7N+R4HfCwiHwM6Br9gqr+U/kcRWQu8PNRm2YAnwJ+VNl+JLAJeKOqpivHXA1cAnjA+1X1RV2fbTwQ4OWtNkNl+MyjfWwZKjOpxuGjJzRw1+va6RwqU/bhjqczdGRc3jS3DkuCIcoax2JqXYg3zKmnZr9CggzDeLGN5HGcVOuQKyt9BZ9frR/kHUfXc2pbDb9+ZmhnZv32eDAa84qpNSzvyZMIWXxjaR+ZYjBs+cmTmyZ0lhDYvwbtl8BGgoU+X5R7aKq6DlgMICI2sLXy/lcB96rqdSJyVeX5lSIyD7gImA9MBv4sInMm4qrVnXnhy0/2s2XIpT5sM1DyuebhPv7rhEa+s6yfgaJP1BFE4P/WZ/nP4xrZOFhiRp1DzIJC2eObSwdYeI5Z3NMwxpIt8G+zEvzv+iwiQUh+S8xmy2CJT53cxKq+EvdvHSJbVi5fmGJ5T4GpiTDv/WsX8ZCFY0E8ZHHzygwvmTRpwmYJgf1r0BYDjap6sKIazwY2qOqzInI+8PLK9tuA+4ArgfOB21W1CGwUkfUE8+IePkhlqkoKPNXvMlAM5qLEQ0LMsciVfcqevzPSsXPIxQJ8IO8qD24bZnJtHX98dpimGpuj6kMmKMQwxtj2YZ9HtuW49rRmcmWf1lqHDQNlrl/ST0/epa3W4fKFKbZky1z3RB8hS7jqhEZaohYiFvGQFQxHujqhs4TA/t1DewCYd7AKQtDz+lnlcauqbodgQjfQUtk+hefySQJ0VrZNKJ154el0idpQ8PF5GizFHrGFKfEQKPTkgzlnrgaTqNeli5zUGuOG5WmmJEJ87KEe3nBU0gSFGMYYa41Z5MpK2LbIuTBQVL70eB+bBsvEHIt0wefqB3tIF5XevMfWIZdvLUtzwaw6HAu2ZMtsyZapDVsTOksI7F8PbSPwJxG5k+ffQ/vUgRRCRMLAvwBXv9Cuu9m2x/51R0fHgRTrgI8/WLaEmrlv4zDvmt/Et5dnKLrB8OIHFqeIWPDehSluWNbPuUcksCxY3Bzle8v7OG1yLUVPeTpdJO8quZJHaftmOjx3rE9pr6r1c9gf5hzGXrWW37IdPrCgmVzZQ1C2DrkUPUUJ1jOEIPpRJAgMCdtCyVMWNkUI28Jvn8myecjlioUN2IVBNvT04FdxnT6Qz2H27Nl7fX1/GrQa4LdAGJg6avuLMWD7KuBJVR1pKLtEpK2SbqsN6K5s79zlZ7cD2/b0pi908nvT0dFxQMcfTNG8UF5ZJmLB509tYklPkam1NiFLuGfLMM1Ri/csauDG5WnyrvLTdQNcMj9JjR3kh/MU6sLCkXUhZtZPH+vT2atq/hz2lTmHsVfN5Vdg/XaPzz/ex3sWNlAXZmcyYgAkiFoeeZoIWfTkXZb3FvnT5hzvnJ8kFbVpjlrctcPmxJZpnNlanXPSDvbnsD+5HC8+aKWAN/HccCPA3cDbCSIr3w7cNWr7T0XkawRBIbOBxw5iuarSlJjy+dObcVX40+Zh6kLC0Y0RHugcZlFTlNqQxbr+IhfMTFDwFFX4W2eOs6bW8t6FKb61tJ8vnd5KWyy4CqzGP3zDmChGsoWUfeWejQNccWwjnzipkXXpEoMlpSVqM68pzCPb87z7mBS/fWaQf5+T5H87BrEt4YdrBnj7UfV0Dpa5cXkGa2GS2XU1EzLYa58bNBH5P4Jw+t+qavnFKoCI1ADnAO8etfk64A4RuQTYTJDVH1VdJSJ3AKsBF7hiokU4KvBgj8fajM83l/ZT9JX3LEiytr/IYFn54P1dzKhzOOeIOHc/k61k7oZLF6SYnrCpi1j8x8Ik9WH44N96eeeCJOe2VefVnGFMBF15n5KvTKt1OGlynHffu4MLZtbxi44szTGLV0yL8+lHeil5StgWLj2mgZ+szbA159Ecs3HVJxW1cf0gIKzoM2GDvfYnIuBBgjliO0TkRhE57cUogKoOq2qjqg6M2tanqmer6uzK9/5Rr12rqjNVda6q/v7FKMN40pkXduThs4/2kHeVC2YkyJR8Ng66fH9lhqKnnDk1zvdWZOjMusRDFgVPuWVVhiPrIwyXlTkNUWrDNmdMqeH6JSafo2GMpdaYRdgSXj+nns8+2stZ04Ik4zuGXU5rq+W7KzJszrrBsjFln+8uT3PlCU1842WtvHNePRELhl3l6MYoYVuIWEzYYC9R3b9uqYjMB95CkDWkTNBr+0m1pMAaGBh4UfrZ2Zu+SnO297kNsus/ffnH7bKb13Z33F6e616PC76lS8HXsp4CIjCzPowSTLzcMFjGV5iZDPPMQBlVCDtC0QsiII+s7Ns77NJWG6ImZLFpsMTCxgiN0Rc6vz00ev+wfTfll928tut57+m9gYGBAeqTyV2O2d3vfA8/f0/Pn1fOXd57N2+5t3PY7ftXtvX1p2lsbNhDOZ97qPv6O9/da7v7HGR3r+/j72WX13p6e2lubma3Zd/T38Ce3r+yTfd63N7eYy+/nz18Jl1dXbS2Ttrjj3v+39a+/L3v7rg97fuPx/3DuQssS/v0FeBHazKcNS3OfZ054mGbkydF+f2zwwDUhy0c2yJb8njJlFru2zrMK6fVMqnWZqDo0xhz6Br2mJt0OCZl7+FPd3fnt/u/x92f3572feG6p2Kxzq550e6h1dfXP/8/wP42aDsPFHkJ8G1gATAEPA58WFWXHUghD9SL1aD5n7mCumdWvRhvZRiGMeFpOMrSj37roDZo+9UvFZG5IvI5EdkAfJ/n0lO1Ar8DfnXgxTQMwzCM/bc/QSFPEDRePwferKq7LvL5NRF534tYNsMwDONwcQhu1e9vcuK795b6SlWre1LTftj+sn8hdP7/C57sOoi5c5hWd3m+6767HPi84557Sf5h6HdPxz33kg+szQYZQn68JsPCxmjwB6PKqr4C75iXZHVfEddXSj4s78mTd33eenSSe58d4qRJUWoci2HXZ2HKoSG8u3PY3fntYUR3d+XX55/nrhtk1/fb5Xl3TzctzS17/50/72fs7fe3m/Lv+t67Pe55B+3b+6vS39dHQ2Pj814X9vF3vqdy7/Xn7+W996Xcu+yXyaRJ1idHb9zNW+7h/Xfz3rLXn72X3/tuz29vn2lgcGCAurq6PZRzP99719f2+jt//nvIbt5/0BWe6C7QVmOjCDZKbUhwRHiqp4CnYBHcC3d9ZVoixJZsmSPrQsQcYdtQmYaITXvcJma9wN/OHn/3+/h72de/xV2fh8J7Pu5Fsj/z0H458lhEhFHtraoedmsWDE+ZgVfFEzH/2uWxdTj4o6e5yPtXZii6wR/8B85K8UAixEd3dOOpErWFS89K8dCmLPXTEqTm2PTHLR5Jl4mHbeItIeqS1Rnp2NvRQapKP4d9taOjg8Q4P4etHR3UjONz2FzFE6sB/t7l89etBX6wOlNJgyV85pQmWmpsPvpAD8DOKMdE2OILpzVT8uHxoRINUZv/WTvAOdPinNMe5YSG6qzLABzkbC37fA9NRCaLyJ0i0kcwB6w86ss4hDrzwpLuEqv6ijRGHW5ZlQkmUBOkyOkv+ty4PE3RU1w/SEx8w/I0L5lSS3/B5/OP9pIuQmMsxA3L04TsiZ3/zTDGWjzi7GzMlGDds28tS9MYdRgq+/RWFu4t+0q25FP24ZqHe/jp01mufyrNWVPjzEyGJ2y4/oj9OfvvASWCrPhDwHEEmTvecxDKZexFV96n6MND23KUfJ9L5ye5ZH6SlpogVDdiCwNFj9YaG8cK8r/5qsxtiPCnZ7M0RG22D5XZMlTGAvLlCTU33TCqTm/eJRWxEQmGvmwJ/jnnSmW+cHozUTvodcUc4TOnNvHLjgyOFdTrdMFjVjJMQ5gJv2Dv/txDOw2Ypqo5EVFVXVbJ5PEQcNPBKZ6xO60xi1REOHNqnI8/2MPmrEvIEi47Jslftgzh+4pjBQlM68NBJYnaQkPEIhmx2DLkMq0uTGe2RF3YqlzVTeyKYBhjRYFkxCbmCA0RG0uCXI79BY+Hd5SYWefwy9dMYXvOpbXG4ZtP9fLAtgK+wpS4Q3siREjAxZrwqez2p4fmEQw1AmREpBnIMQGXbxlrU2LK/MYodz+TpS4kvPuYJBfNrSNX9nnd9DhzkiGuPKGRkBUkOK1xhCsWpVjbX+TyRY18YHEDN63sx7GEj53YMOGv6gxjLHXmhdW9Bf51VoJYZVHe7mGPdy1IURcSNg+5PDNQJucqK3vzvPuYBq5Y2MAHFjfQGrW5YlGK6fUOP1jRz5rsxB5y3J8e2qPAqwlWlP4jQfh+HnjiIJTL2AMF7tnusS5dJhm2eOnUODcsS+P6SswRPntqM0915ThlcpzzjoyjBA3aYNHjR2sHqA1Z/NusOlCYXh+m1jGNmWGMpa68z468z2+fGeQtR9UxJxVhTV+BqCP8aE2G18yo46N/76YlZhO2hVdPj/OnTcEK1lef1MQT27MU3BrOm56gv+CBWeBzz0SkRkS+QNCTfbmIRIAPAn8BVhKkwDIOkZHM3G3xEC9pr+WGZWkKlRWqc67ylSX9nDcjyecf6+PmlRl+tT7Lt5amuf6pNK+entgZIHLm1Fqe6i7wwPaSyeVoGGOoNWYRsYPUULesGqC1xqHow5eX9HP21AQ3rwyCvoq+8my2zPdWZDh1ci1bcy4fub+L86YnuXXVAKvTZcKhiR3gtS/9028DryPIcH828FVVzavq51X1ypGVpY1DYyQzd2e2zJxkmKIXZAAUgaaoTa7sUfKU186I8/7FDbTErJ1RU7HKGku1jjA3FebO9YMUveA9DcMYG+0x5fjmMJcvSuH5yvZciaMbIpQ8RQVKXjD1JmwJguCrUhuClphNbcii4CpROxi96c5N7ACvfRlyfBVwXGWxzW8B9wMmI8gYGcnMLQKJkNAed8i7Sk1IyBQ8mmIOy3vz3Loqgy3C5YtSZEoDZEs+jsD2nEvMsYiHLBpiNsmwmKAQw6gC81Ihvv7yVlqiFmUf2hMONY5QF7aoqdxbK/vBHDUQMkUPS4QVfXnOOSKOqtIetwnSLkxM+9JDqx3phanqFqD+4BbJ2Jv2mPLh4xsICTgWXLEoRc716R72mJII8Zrpce55doi2Wod4yOLn6wZ529H1XDw/yd86c7TEHN5+dD3fWZbmPxY1cPKkqAkKMYwx1JkXPvtoP0NlnxU9RXryHgMljw8e28Bvn8ly5QmN2JawI+cyJe5wxcIUd3QMYkkQ7PXLpwe5c32WkybFaI1O7Lq8Lz00R0TO5Llo0F2fo6p/ORiFM55PgHPbbKK2xZahMn/clOULp7UQtqEl5vCff9uBj7B92MUiGIqclgixNVvm0gUNWAKfeqQHFIZcpcZWZEIH+hrG2OrK+wy7ytacR31IyLmQLXkMFD2+9rJWsiWPq09sYkl3gZgjzEmFeO30BAL8dcsQORcSFuRdn205mByZuPV5Xxq0buDWUc/7dnmuwIx/tgAikgRuJliGRoF3Aut4LpP/JuCNqpqu7H81cAnBNIL3q+of/9mfPV4JMCNhEQlFeXhHL3/d2sV/LEoxZZqDj9Cdd/E1GHiIWMLSniIKTE5AImSRLni01jis6SuyqDHBRB6iMIyx1hoLhhQbozZNMYeHtuU5bXKMh7blybvKQ9sLhG2Ln6wdoOgp75yf5CdrB/BVmRoPka4kUWiJhWiNKRP59sELDjmq6pGqOn0vX/90Y1bx38AfVPUoYBGwBrgKuFdVZwP3Vp4jIvOAi4D5wHnADSIyIcN62mNKb77MJQuSRGzh2UwB1/O48sRGwrYQsoLJ1O9akOSuZ7IsboqAevTky0xLhHjj7Doe3JajLz+xbyIbxlhrjylXn9jAX58dpOwpf+scwvM8jko5FD2fqC3MSNi8f3GKqC08sj3HZ05p4si6EArMTIb4j0Up4o7PlAl++2B/5qG96ESkDngp8A6ASib/koicD7y8stttwH3AlcD5wO2qWgQ2ish64CTg4UNa8CogQEtNiF+v7+HjJzTQEHNYl3Y5oi7EW4+qx9MgBdaD23KkIjYRW1ibdjl9cg3XndHMj1am2TLkUhOy0H9cK9swjENIgHPabIpenKU9BVAlGrLJFD2KHnx/ZYb6sMWb5tbx0/Pa2Dbs8+PVac5qrwWBl02pYUZCuPrBPt6zMMm5bfaErc9jPa18BtAD/EBEnhKRm0WkFmgdFYiyHWip7D8F2DLq+E4mcKaSGTXKlSc1M6chyjee6meo5LOqr8jM+jBxR7CAE1pruPrEJrpyZabXhVifLvKxB3s4b0Y915zczM3L+808NMMYQwqsyVos7yvh+srnTmuhO+8xqTbMN5f2MycV4rwjE2RKyo5hn6880ctjXUV+uGaAW1ZmuOze7WRKFie3xbh+ycSuz2PaQ6v8/OOA96nqoyLy31SGF/dgd5/UHvvYHQe4VMGBHn8wWbbD40zmJ+uyXLwgRU1ISERsrn28FxRaaxwumJXgwc1D3L91mCsWpvjF0xnOPbKOGkeIOcL2IZflfQXWd6UplHvG+pT2qJo/h31lzmHsVWP5LdthuTbx5eU5Ngx6hG3hyLowP1id5uypcRyBM9vjfH9FsHpGyEpS9sGuJCZ2FYbKSmeuTAglm88f1vX5hZYAGusGrRPoHLX69S8JGrQuEWmrzH1rIwhMGdl/6qjj24Fte3rzA1n/qKPK10/aWhA2dQxz0qRaptQ6vO7IBP+zdoBaxyJiC1uGytywLM2b59ZzX2eOjz3UzRtn13Pj8jQXzamjrcZmRa+SCDvMak0xNZYc61ParWr/HPaFOYexV63l35IXbry3GxULS3yitsU1j/TwlqPqmVkfJtdWw/dXpMm5wXW7pzBY8khGbAZLPlJZ9NPzYUYqSiIWm9D1eUyHHFV1B7BFROZWNp1NkJHkbuDtlW1vB+6qPL4buEhEIiIyHZgNPHYIi1wVFHio2+WGZWluXNHPip48R9aHSBc80kWPYVcp+wT5HUMwVPapcSxSUYuevMv0+jDPDBRpjNp86mSTnNgwxspI5h9foTkWZNrPuT4iyuZskVnJMAVPcSRYBuqxHcO8a0GKsB2splEbCpaT+f7yPrJl5aoJnmx8rHtoEGQd+YmIhIFngIsJGto7KsvTbAYuBFDVVSJyB0Gj5wJXqOqEC9PrzAvfWtpPwVNEhEjIwVUYqCz8Z1XWUnIsARU8DVa6nVkfpj0eYnO2RNlXbBFm1Tn/uCS8YRiHzEjmn5Kv2BbU2RZFTyl5wf2V7UMuk2sdCp4SD1l0pMsMlwf58hktbM95hCzoHS6zKu2yOVvmhOZaZAJPwxnroBBUdamqnqCqC1X1AlVNq2qfqp6tqrMr3/tH7X+tqs5U1bmq+vuxLPtY6cr7FDylORZcj3TnynQNlXn3MSlqQ8JQ2WdK3OGyY5I8tC1HzBE+cXITYRv+67gGfFVm1EcIidBt8jgaxpgZyfwTdwRHIFJZMePZgSLNUYu5DSHeenQ9EVsoV9Y5fM30BB99oItvPtXHB//WRXfB570LU/xlyxBbhibc9f0/qIYemrGfWmMWNXbQcJ05Jcqi5ijpos9tj/fwjqOT5D2l1hHCFrz/2EaW9RS4YVk/9RGb102P85O1gzhWkOexrcbkcTSMsTISsp84tZlnhzyW9RSYkYA3zq1nVX+JB57O8MajUrx+ZoKpiRBPZ0r8dUuO/qJPW43DtITD0Q0Rvvh4L3Vhi6kJk8vRGGdGJmImIxYXzKrnke15bl7Rz3sWNfCrDVnu3pDl/9ZnCVkW33iqD8cKhh8Hih7fW5Hh32bXYQvcuiqDZ9oywxhTW/PC1pzHlx/voeyDh8NjOwr8Yt0AFy9o5PEdBYY95Qer0zRELE5uq+GyBSlePb2Wz5zaRGvM4sunt3Dp/PoJ/w/d9NDGoZGruuhpLfQWPCxLKCmEBF41PY6vwX00W2DHsEdrTaiyLIVHc8zGsYL7avmiz6M9Lu3T7AlfEQxjrHTlfcqe8toZddy6KsPcVIiakHDBrDo+8XAPzwyUidjChxan8IHfbRzCtiBsC4mQzY/WZIjYFh86LsWO4TJz42ZitTHObM0L1z7aQ1ttiBNaopw8qYbrn0xz68oMt67KcPPKDF9/qp/XzUiwLlPivCMSAAyWfKYlQhQ8pTZk8WR3YcIv224YY6k1ZtFc4/CD1RlyrpII2cxORvjB6gyuH2TxKXpKb9Hnx2sH2ZZzsUXYkCnzzaX9nD+zjo2DZf77qTQhJzShJ1ab/2Tj1Ei478OdA5R9n9nJMD15l6ZYcHXmCBQ85ehUhAe35jiqIczCpjCfOLmJ3lyZsCVcuiDJr5/J0jnBbyQbxlhqjyklzyMVCeruT9emCVlQF7bJl32OrAvRFLNJOBaOBVPjDr4G88+GXSViCe+Yl+S8I+Pkyj59RXMPzRhnWmMWrTGbIg6qsCPnMqnWoaay6GcqatNW6/DsYInOIZct2TIXzq7nVx0ZmmtDfPbUJtIFj6HyyKKAhmGMBQGOSTkkIxYtNTadOZ+wBfURIepYbM6WCVswOxVmoOizY9hlx7BHXdiiLmwxOxXmp+sGuGllhk893MOzQ/6EDfMyDdo41R5TLl/cyE0rM/zPmgzT6xwuX5iiL+9R9JS863P+zAR3rh/k0gUpbu8Y5HOP9XLK5DjfeKqfeNjizvWDfPH0Zo5OTNwrOsOoBlNjysdPbCARsugadrl93QAfPLaRnrxHY8zmoyc08YNVad45P0nUsfBUKXjK509r5ouP9aAKLTEbz/f5ztKJm8/RBIWMUwLU2EpTzCZd9Cl4PpNrHd4+L1hO5riWKI/tyPOKIxL8ZcsQQyUfrQSLqCq5ks+Pzm1jTtw3VzWGMcYEeGWbTfNZLWzNBb2vobLPZQuStNQ6rM+UeKK7yOYhl3ccXU++Ep6ciggh22JaIqjFtQ6UfKUr7zM1NvEaNdOgjWO1oWDM/SVTalmfcVk/4PLrZ4bYnnO5uLIIYNlXGiI2Mcci7/rkSsqOYY+CF+SFM42ZYVQHAVoiQn/R5q+dw5x3ZJy8V+Bzj/by/46qJ2wLXcMeN65IUxe2GSr7HN8Spegprip14aA2hy2hNTYx55ea/2fjWMnzuHxhA56Cq3D3M1kuXxTkefvNxizvXpCkPe4w7PrUOMK7j0nxp2ezXLIgyebBEp05bwL+yRtGdRpZazpb9si7SudAgeNbopQ85Tcbs7xrQZL6sEUyYtMQtfjS6S08tDXLR45voD5sYRM0Zh8+fuLmczQ9tHGsOWoxpRamxGt4aFueoZLSMxwMSdhWcMV3/owEJV85d1otffky501PcNf6Qd44p47HuvKgkQm9IKBhVAMF/rTd49aVGS5Z2Eg8JFi2jet6zGsIkyv7dPQX+OLpLTzVUyBkCV9b0ssVxzZwRNziGy9rxfN9jqy1aI9N3AV7TQ9tHFNgdX8RW3wWNIW5ZEE9d28YZGoixA9WD/Cd5WluWpkhZAnXL+mjpEKNY3HJ/OBK7xfrBvni4xP3BrJhVIvOvHDrygz/OifJ4zvyvGJaDREbmmIOr50eJ2xbzG6I8uEHuvjVhizfX5lmc87j2sf6iIYcrnmom9qQPaEbMzA9tHFLgYe7Xa5/Ks3bjq5jXipC3BE+d1orRc/nkvlJip6iCneuH6Tsw+q+In/pHOay+UluXpWmq+ATdawJewPZMKpFX9FncWsN1z7WiyMKAvd35njjnCQ/XjvAx05qQhBqHYtsyQcNMgENuz5bh1yezXks6ynRMywTesTF9NDGqS2VJWRKXrAMjGUJf+scZqDkM1AKtj24Ncfdz2TpL/pEHUEQ8mWfrz/Vz8mTarGAGmfkBrJhGGMlZNt8f2WGkq9cMKuOG5enObO9lqYofOykZhxLaIrZDLvBShuuBkFdUTtIY3fBjAS1YeH6JRN7xMX00MYhBZ7qd9k0WGZOMkRdyKJQ9njj3Hq+uqQXtzKt7IKZCX7eMUhbjcMVi1L8cHU6yOdYYxMPwRF1DldP8AUBDaMa5MseqYhFd97D9SEVtjgiYbN92OfzjwV1+qWTo3z+tGY+/lAPeVeJh4RPntzEL57O8MY59fx+w8CEDtmHKmjQRGQTkAU8wFXVE0SkAfg5cCSwCXijqqYr+18NXFLZ//2q+scxKPaY6swLT6dLWCK8rL2WH64Z4IKZCe7dkiNXVjJFD0uEOzdk+eRJTazsLdI5VOaE1lrW9GcYKvm86sg47zo6ztQJPuZuGNWgNWbRFLEI2ULYFv51dh2+2Hz6kS6KXjDf9L6teQT42XmT2Trkggg/X5tme97HEmHdgEvcmbgh+1A9Q45nqupiVT2h8vwq4F5VnQ3cW3mOiMwDLgLmA+cBN4jIhMvb1JX3eWhrjisWpRAgERKmxB2Gyz4xR2itcWiM2pR9peAqHnBkXZhkRIg5QQ7HQtlnmmnMDKMqjCz0We8ID3QOMTcVJlvyKHi6s2lqjNpMq4+wfdhjWW+Rzzzaw8asx6ULkqzuL2LJxA7Zhyrooe3B+cDLK49vA+4Drqxsv11Vi8BGEVkPnAQ8PAZlHDMjy7ZHLJjZEiHiCF05l5AtDJZ8uoeD+WWJkEU8ZPHrZ7L8cdMQHz6ukSsWprivM8crj6hBMQ2aYVQDAc5ts5l3dgvPDPmEbYtNgy4xR/D8IN/qaZNruWVlhrs2ZAnbwgcXN9BaY2NZ0BqzecPMOPMS/oSu09XQQ1PgTyKyREQuq2xrVdXtAJXvLZXtU4Ato47trGybUEbyOH59aRrfhzvXZ/EVLp6XZLjs0xi1mVLrcOWJjdy+LsOFs+tQ4OMPd9NX9PmXmXX4CtsKE/lP3zCqixDkdHxpsxCzXBJh+MwpzUyqcTixtYYfrR6gPmIxWPLZlnO5eVUGFG5cmqa1xuHoCd6YQXX00E5X1W0i0gLcIyJr97Lv7j6vPfavOzo6DqhgB3r8weSHWzmqzqLkK0NlH9sSyp7HdWe0srSngOvDd5f1c+GcemI2hCyI2RYz6kLsGHZZ0Stssn1OZBu+54716exVNX8O+8qcw9gbL+V3wlFWeq38eM0A71mU4ssvaSZdVH61IYsqxEMWNSEBVdamS6zsL/HnZ7PsSCsLpfewrs+zZ8/e6+tj3qCp6rbK924RuZNgCLFLRNpUdbuItAHdld07gamjDm8Htu3pvV/o5Pemo6PjgI4/2KJ54awjQmwYKGOJcERdCICPPNBF3n2ujb9pZZrPndqCJcJQ2WPDYDlIbByy+O7yDKefM4OpVTzmXu2fw74w5zD2xlP5V2UtPn73Vt4wq45PPtzH1Sc2sbSnwEDJp1hJSiwFmNcQZthVHCtIUHzjmhy3nD2x6/OYDjmKSK2IJEYeA+cCK4G7gbdXdns7cFfl8d3ARSISEZHpwGzgsUNb6urQHlPmNIT546Ysbzmqju6ciwB1YQuLoCsbtoXakEXHQBFL4F0LkrRELRY0hrirIwMEIb6GYVSPziGXgqeIBV3DLhsHSvx9a45LFySpDQlNUZspcYf3LW5gfTrPuxckeXT78M6Q/YlsrHtorcCdIjJSlp+q6h9E5HHgDhG5BNgMXAigqqtE5A5gNeACV6jqhFxuWYBjGxySERsLOLoxhC0WMTuIePQVnMrlyvyGKOdPT9BfcBks+WSKHmVfJ3RWbsOoRgokIja2BE8sEYq+smXIZWnXMF85o5VlvQVcD364Ks2/z63noa050kXf1GfGuEFT1WeARbvZ3gecvYdjrgWuPchFGxdsgYvnJ/nIA9188fQWvvxEN6+fVcf3VqbJlZWoHUy87M6VaY0KVz7Yg6XKq6YnOH9Wkun1DlOqeHjCMCaazrzwwxX9fP60Zv5ndZpPndzEnesHueyYFIMln/96oIuCp7TVBv+6r3mkl++eNYmblvfznoXJCR2yD2PfQzMOwPZhny3ZMrUhi0zRY8uQy+82ZrloTj0RGwQhGRZu6cgSC9WjvvJvc+u5aWWGlphNQziYtzKRc78ZRjXpyvs8PVDmFdOUdx3TyG2r05w6uQZBedmUGv6waQgF+vIeDVGbkqdszbm8+egk55h6bBq08aw1ZtEeD9Ff8Ig6FjHHoqfgc+uqDApEbOHS+UlyLkRti1dOT3DDsjQAYStY2fb6Jf3MO7ulqm8kG8ZEMTLHtDUR4d9/t5XmmM1P1w4C8PpZiqewLRdEMXbnXdpqHMKW8J2l/ZzSbOpxNcxDM/5J7TGlNgQfXJSif7jMZ09pxlOlOWaTDFt8+pQmkmGLz57STK7kMqs+FLxeY1NZ3NbcSDaMKjKSMWRHzsX1laKntNZYvPmoOuJhi6++pIVFTWFaYjY1jsVHTmjktxsGMAFeAdNDG8cEOCblsC7t8tN1A7z9qHq+ekYLloBtC19b0se2nEdd2OINsxM4rk97PETJVwbLSl1IzI1kw6giIxlDlmQsIrbQFLU4c2qc/1kzQMgSbl2V4SPHNdJXcJmVjDClRqh1TD0eYXpo45gCA2VhsOxz7hFxfvL0ACqQLSsf+3sPW4c8hso+mwbL/HTtIFPrQlyxqIELZ9Xh+QqY3G+GUY2m1ihfPKOFl02t5QergkV6B0o+NY7QNewyNxVBgNV9JV41s97U4wrTQxunRpZs/9xjPXQMlHEE/mNRiv6Cx4ZMmW2VeWlNMZthfHyFp3oK/HBVhml1IS5f3MCJzWGOTe4+/YphGIeeAn/v8ViT8fjDpixvnJMkFR0iZAkxG14/u54blqdJhCyGyj7XntZMY8TirFYx9RjTQxu3OvPBYn6+KhZQ9JW+os9NKzK4Gkyq9oGevEcqapMt+7heUGGyJZ/rHu8jYlumEhhGFenMCzvy8OlHeunIuDzWVaAn7+H6yutm1nHD8jSlSgb+gqdc80gP8YiJbhxhGrRxqivvU/KVsAWtNTa2CHVhCwWe7BrmsgVJonbwZx51gmjH327K0lrjUHSVVMQiX56Qc9INo2p15X3KnvLvc+p509wEp7VFuebkJkSCkZRSZW20gZKHI8Hz7pypxyPMkOM4NRLe21v06S94nNwS5tjmKN9dnmargkiOS+YnEYGXTK7ha0/2BsEiFiSjwWKC5iayYVSXthqLNQMe9z6b5V9m1fEff+1iRp3Da46Mc2Z7DXc9k6U372EhiBVMv5kStwET4QimhzZutceUKxY3kC76lH24cG6STz3UzTvnJ2mM2iztKXHLqgwRW/j5ujTnz6wjEbbJl4MG7IrF5iayYVQbT+HG5f1cMLuOm1ZmKHjK+oEy92zO8f0V/Xzk+EYcS/BRQhZ84fQWFtWbxmyE6aGNUwIcEbd494J6bCtYiXpT1uWOjkE+dmITK/uKeD48si3H4tYavr+8nwtm1ZFzlZdMiTG91txENoxq0533CQs4VlA7axwhEbZ4Nltm/UCZkybF+ME5bWwZcrGAVERMr2QU87sYxxojFn/ZnMPzlbyrRGyhe9hjfabE/6wZ4IerMyxuqeHmlRmeHfL4zcYhbl2V4ZMP9WBZ9lgX3zCMXYzcSghJkFw8HrLoGfZQDTL/bBny+X9/2IYqXPt4L196op/OvLk0HWEatHFsJKuAqnDrin6uObmJmC38+dkhLluQZGrcoegrJU9pidl4qrTW2DiCCQgxjCo0Uqf/1pnj4nlJIrZgWWBbwrsWBIFdBU8peH7wmskQ8g/MkOM4NpJVYGq8lt9uGuL+rUN86YwWIrbw7GCJtxxVz5REiPa4Q3feJeI41IUt6hyTVcAwqpEAC1IOL2+vpeQr3z27jd88k6Xgwf92DNI97BG1hZhjEbIEH1OXRzM9tHFOgKMTPp88qYG+YY/rn+zjF+vSHD8pRn3EImzBxfPqmRIPMVj0cMRkBzGMarZ92OcPm7I80JljWdcwcxsi/O/6QbqGPeIh4ZqTm/jV+gEGih6XLzR1eTTTQzsMjPTU5p3dQlfBZ1Xa4+I/bafgKlFH+Pypzfzn4iRbsh7/MqOWeQnfBIQYRpVqjVm0xmwWt9bwpSfTzKm3+fIZLTgWNMeCBX3rwvUc31Li2KYQYkL2d6qKHpqI2CLylIj8pvK8QUTuEZGOyvfUqH2vFpH1IrJORF45dqWuDgpsyQtL+oOrtJhj86mHe8i7PooyXPa56sFuIo7NcS1h05gZRpVrjymXL27k+yszlDxlS87ng3/r4kN/6+LuDTn+5ddb+a+/d3PSpBhz4qYxG61aemgfANYAdZXnVwH3qup1InJV5fmVIjIPuAiYD0wG/iwic1R1QkY4jORzvH5JfyVriPDexQ3kXR931N+56yu1jsW5bSZU3zCqnQC1ttJWY+P64AEDRZ+y51MXsZheFyJkQ2O4SnokVWTMfx8i0g68Brh51Obzgdsqj28DLhi1/XZVLarqRmA9cNIhKmrVGcnnWPKD3lnJV+Ihe+cclpEbxY4lTKo1+d4MY7xojVnEHaHGgYgFIkHYfsRS6kJQvzOwyxhNVMf2hqKI/BL4IpAAPqKqrxWRjKomR+2TVtWUiHwbeERVf1zZfgvwe1X95ci+AwMDO0+oo6PjUJ3GmNgSaubjjw/+w7a3zW/CCjl85pFefFWOSoX56IlNiCqTQi7JXBduqTBGJTYMY19YtsNybeIbyzKUPPDsEBfOrsPBZ8iF0yZFmFHaMeHq8uzZs3c+rq+vf941+pgOOYrIa4FuVV0iIi/fl0N2s22PLfLok99fHR0dB3T8oRDNC4lYeWcPDWDIFzq7h/mfV04mXXTpK/hc9uftDLvK1LjD1Se08cbZzth3zffRePgcXog5h7E3Hss/Azhhch1deZ+WmMWy3iJfenIAX5UHtub58PGTOfeI8TXycrA/h7H+v3Y68C8isgm4HThLRH4MdIlIG0Dle3dl/05g6qjj24Fth6641WVkEma4MsQYtoTjm8O8fk6SP2/JsbynxKce7iVXDpaY2Z5z+dpT/azNjvXHbhjGCxFgakw5oSG49/3Vx7twJFhho+Qr1y8xWUJ2Nab/2VT1alVtV9UjCYI9/qKqbwHuBt5e2e3twF2Vx3cDF4lIRESmA7OBxw5xsavGSLj+LWe38NUzmrnl7BbObLWpsZWwZeFqkCXEFnAVSj6kiz5rMmUzDdMwxpGuvE/J+8daW/JNlpBdVUuU466uA+4QkUuAzcCFAKq6SkTuAFYDLnDFRI1wHDFyFTc1JoyMvtaGbMq+T8iyqHGEnKs79w1bQke6RGdTDVPNhEzDGBdaYxZh+x97Y2HLZAnZVdWMPanqfar62srjPlU9W1VnV773j9rvWlWdqapzVfX3Y1fi6jMyJ23HsEtrzCYZFt67MEXEDoYs2uMObzu6jke358yVnWGME1r5+sDxrbxmRoJUJEhgbDL+PF+19tCM/TR6TtpZ0+L8omOQC2fXcVpbjBn1YXJln4GSx4OdQ+TKaq7sDGMcGF2vs/kCkUiUKxY3cFqLw+SojquAkEOhanpoxoEZPSft71tz/PvsOvqLPo/uGCZT9LhheT93rh8kV1ZzZWcY48Q/zjUNvm5a3o+vuw/5nuhMD+0w0ZX3d4bvuz4UffjtxiFEoCVm8bETm0iGLY6qt2iPmSs7wxgPRtfrESPBIMF9c2M000M7TIwsDAjwkvYablieZsewi+sra/rLfPTv3UyutZlqGjPDGDdG1+sRzwWDGLsyv5XDxOg5aYqgBJm5C65PfcSiPmLRW/DMXTPDGEd2N9f0w8c3YAk80a9syYup06OYIcfDxOglZHYUlD8/O0TBdcnbNt3DHgVXeGxHgYIb5ty28ZVdwDAmqtH1en1XmpmtKdYPulz85+6dCck/fHyDqdMVpod2GNmZWSAFV5/YQMgSuoc9QrZw2TFJHtqWM9kFDGOcGanX7eUeBLju8X9MSG7q9HNMD+0wJMA5bTb2KS38aUseBX6+bgDbEupCYm4oG8Y4ZYJE9s40aIeprXnhia5h7ng6S7GSMkcE6upDZg6aYYwjShC+vyXUzKSQTdiSf2jUTMaQ55ghx8NUV97ngc2DvPuYJBH7uRvKVyw2c9AMY7wYmVh9yb3dfPzxQT7zSA8XL0g9L0jE1OmA6aEdplpjFkNlj8e253jPMfW4KkQsOK3FwcRFGcb4sOsivl15j191DPD1l7WSL3u0xsy80tFMD+0w1R5TPrgoSa6s/GHTEPdvGWJhU5jJUdOYGcZ4sbt7Zl15j3zZ44QGMfNKd2F6aIcpARZKL7ecPYOuvG+u5AxjHBqZWG3ume0b00M7jPmeu3OBQHMlZxjjz54mVpt7ZrtnemiGYRhVateJ1bNaU2akZS/GtIcmIlEReUxElonIKhH5TGV7g4jcIyIdle+pUcdcLSLrRWSdiLxy7EpvGIZx8I2eWG1GWvZurIcci8BZqroIWAycJyKnAFcB96rqbODeynNEZB5wETAfOA+4QUTssSi4YRiGUV3GtEHTwFDlaajypcD5wG2V7bcBF1Qenw/crqpFVd0IrAdOOnQlNgzDMKrVWPfQEBFbRJYC3cA9qvoo0Kqq2wEq31squ08Btow6vLOyzTAMw5jgRLU6omVEJAncCbwP+LuqJke9llbVlIh8B3hYVX9c2X4L8DtV/d+RfQcGBnaeUEdHxyEqvWEYhnGwzZ49e+fj+vr6591OrJooR1XNiMh9BPfGukSkTVW3i0gbQe8Ngh7Z1FGHtQPb9vSeo0/eMAzDOLyNdZRjc6VnhojEgFcAa4G7gbdXdns7cFfl8d3ARSISEZHpwGzgsUNaaMMwDKMqjXUPrQ24rRKpaAF3qOpvRORh4A4RuQTYDFwIoKqrROQOYDXgAleoqjdGZTcMwzCqSNXcQzMMwzCMAzHmUY6GYRiG8WIwDVrF3rKTjNpnqoj8VUTWVDKbfGAsyrorETmvkjllvYhctZvXRUS+WXl9uYgcNxbl3Jt9OIf/Vyn7chF5SEQWjUU59+SFyj9qvxNFxBORNxzK8u2LfTkHEXm5iCyt/P3/7VCX8YXsw99RvYj8elR2oovHopx7IiK3iki3iKzcw+vjoS6/0DkcvLqsquYrGHb9MnBV5fFVwJd2s08bcFzlcQJ4Gpg3xuW2gQ3ADCAMLNu1TMCrgd8TZNE5BXh0rH/f/8Q5nAakKo9fVU3nsC/lH7XfX4DfAW8Y63L/E59BkuD+9bTK85axLvc/cQ4fG6nbQDPQD4THuuyjyvdS4Dhg5R5er+q6vI/ncNDqsumhPWdP2Ul2UtXtqvpk5XEWWMPYT+w+CVivqs+oagm4neBcRjsf+JEGHgGSlekQ1eIFz0FVH1LVdOXpIwRTNqrFvnwGEMyx/F+em4ZSTfblHN4M/J+qbgZQ1Wo7j305BwUSIiJAnKBBcw9tMfdMVe8nKNOeVHtdfsFzOJh12TRoz9lTdpLdEpEjgWOBRw9+0fZqX7KnVHuGlf0t3yUEV6nV4gXLLyJTgH8FvnsIy7U/9uUzmAOkROQ+EVkiIm87ZKXbN/tyDt8GjiaYv7oC+ICq+oemeC+Kaq/L++tFrctjHbZ/SInIn4FJu3np4/v5PnGCK+0Pqurgi1G2A7C75Nu7hq7uyz5jaZ/LJyJnElSCMw5qifbPvpT/G8CVquoFnYOqsy/n4ADHA2cDMeBhEXlEVZ8+2IXbR/tyDq8ElgJnATOBe0TkgSqox/uq2uvyPjsYdXlCNWiq+oo9vSYie8pOsut+IYLG7Ceq+n8Hqaj7Y1+yp+xXhpUxsE/lE5GFwM3Aq1S17xCVbV/sS/lPAG6vNGZNwKtFxFXVXx2SEr6wff076lXVHJATkfuBRQT3kqvBvpzDxcB1GtzAWS8iG4GjGD8JGqq9Lu+Tg1WXzZDjc/aUnWSnyrj7LcAaVf3aISzb3jwOzBaR6SISJlhe5+5d9rkbeFslQuoUYGBkeLVKvOA5iMg04P+At1ZRj2DEC5ZfVaer6pGqeiTwS+DyKmrMYN/+ju4CXiIijojUACcT3EeuFvtyDpsJepiISCswF3jmkJbywFR7XX5BB7MuT6ge2gu4jt1kJxGRycDNqvpq4HTgrcAKCVYIAPiYqv5uDMoLgKq6IvIfwB8Jorxu1SCjynsqr3+XIKru1QTL7QwTXKVWjX08h08BjQRr4AG4qnrCWJV5tH0sf1Xbl3NQ1TUi8gdgOeAT1IvdhmaPhX38HD4H/FBEVhAM312pqr1jVuhdiMjPgJcDTSLSCVxDsKzWuKjLsE/ncNDqsskUYhiGYRwWzJCjYRiGcVgwDZphGIZxWDANmmEYhnFYMA2aYRiGcVgwDZphGIZxWDANmmFMACIyTUSGJFhMl0r6qkvHulyG8WIyDZphjDER2SQi+UqDM/L17RfzZ6jqZlWNq1nh3TiMmYnVhlEdXqeqfx7rQhjGeGZ6aIZRpUTkHSLyoIh8XUQyIvKMiJxW2b6lsoji20ft/xoReUpEBiuvf3rUa0eKiIqIuYg1DlumQTOM6nYyQaqpRuCnBGt8nQjMAt4CfLuy+gNADngbwUKcrwHeKyIXHOLyGsaYMQ2aYVSHX1V6YSNf76ps36iqP6jc+/o5Qab1z6pqUVX/BJQIGjdU9T5VXaGqvqouB34GvGwsTsYwxoJp0AyjOlygqslRXzdVtneN2icPoKq7bosDiMjJIvJXEekRkQHgPQRL1RjGhGAaNMM4fPyUYHmRqapaT7A6dlWuJmoYB4Np0Azj8JEA+lW1ICInAW8e6wIZxqFkGjTDqA6/3mUe2p3/xHtcDnxWRLIEa07d8eIW0TCqm1kPzTAMwzgsmB6aYRiGcVgwDZphGIZxWDANmmEYhnFYMA2aYRiGcVgwDZphGIZxWDANmmEYhnFYMA2aYRiGcVgwDZphGIZxWDANmmEYhnFY+P9m5ch1eNOG8wAAAABJRU5ErkJggg==\n",
      "text/plain": [
       "<Figure size 432x288 with 1 Axes>"
      ]
     },
     "metadata": {
      "needs_background": "light"
     },
     "output_type": "display_data"
    }
   ],
   "source": [
    "sns.scatterplot(x=\"email\", y=\"payments\", \n",
    "                alpha=0.8,\n",
    "                data=data.assign(email=data[\"email\"] + np.random.normal(0, 0.01, size=len(data[\"email\"]))))\n",
    "plt.plot(np.linspace(-0.2, 1.2), model.params[0] + np.linspace(-1, 2) * model.params[1], c=\"C1\")\n",
    "plt.xlabel(\"Email\")\n",
    "plt.ylabel(\"Payments\");"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "We can see how wildly payments vary in a single treatment group. Visually, it looks like it is going from a little bit under 400 to 1000 in both groups. If the impact of the email is in the order of say 5.00 or 10.00 R$, it is no wonder it will be hard to find it inside all the variability.\n",
    "\n",
    "Fortunately, regression can help us lower this variability. The trick is to use additional controls. **If a variable is a good predictor of the outcome, it will explain away a lot of its variance**. If risk and credit limit are good predictors of payment, we can control them to make it easier to find the impact of the email on payments. If we remember how regression works, this has an intuitive explanation. Adding extra variables to a regression means keeping them constant while looking at the treatment. So, the reasoning goes, if we look at similar levels of risk and credit limit, the variance of the response variable `payments` should be smaller. Or, in other words, if risk and credit line predicts payments very well, customers with a similar risk and credit line should also have similar payment levels, hence with less variance.\n",
    "\n",
    "![img](./data/img/beyond-conf/y-pred.png)\n",
    "\n",
    "To demonstrate this, let's resort to the partialling out way of breaking regression into 2 steps. First, we will regress the treatment, email, and the outcome, payments, on the additional controls, credit limit and risk score. Second, we will regress the residual of the treatment on the residuals of payments, both obtained in step 1. (This is purely pedagogical, in practice you won't need to go through all the hassle)."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 5,
   "metadata": {
    "ExecuteTime": {
     "end_time": "2023-07-27T13:13:22.329602Z",
     "start_time": "2023-07-27T13:13:22.305897Z"
    }
   },
   "outputs": [],
   "source": [
    "model_email = smf.ols('email ~ credit_limit + risk_score', data=data).fit()\n",
    "model_payments = smf.ols('payments ~ credit_limit + risk_score', data=data).fit()\n",
    "\n",
    "residuals = pd.DataFrame(dict(res_payments=model_payments.resid, res_email=model_email.resid))\n",
    "\n",
    "model_treatment = smf.ols('res_payments ~ res_email', data=residuals).fit()"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "This lowers the variance of the dependent variable. By regressing payments on credit limit and risk and obtaining the residuals for this model, we are creating a new dependent variable with much less variability than the original one. The last model also uncovers the `ATE` with valid standard error estimate.\n",
    "\n",
    "Just out of curiosity, we can also check that the model that predicts the treatment should not be able to lower the variance of it. That's because email is, by design, random, so nothing can predict it."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 6,
   "metadata": {
    "ExecuteTime": {
     "end_time": "2023-07-27T13:13:22.340897Z",
     "start_time": "2023-07-27T13:13:22.330918Z"
    }
   },
   "outputs": [
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "Payments Variance 10807.612416\n",
      "Payments Residual Variance 5652.453558466207\n",
      "Email Variance 0.24991536\n",
      "Email Residual Variance 0.24918421069820032\n"
     ]
    },
    {
     "data": {
      "text/html": [
       "<table class=\"simpletable\">\n",
       "<tr>\n",
       "      <td></td>         <th>coef</th>     <th>std err</th>      <th>t</th>      <th>P>|t|</th>  <th>[0.025</th>    <th>0.975]</th>  \n",
       "</tr>\n",
       "<tr>\n",
       "  <th>Intercept</th> <td> -3.71e-13</td> <td>    1.063</td> <td>-3.49e-13</td> <td> 1.000</td> <td>   -2.084</td> <td>    2.084</td>\n",
       "</tr>\n",
       "<tr>\n",
       "  <th>res_email</th> <td>    4.4304</td> <td>    2.129</td> <td>    2.080</td> <td> 0.038</td> <td>    0.256</td> <td>    8.605</td>\n",
       "</tr>\n",
       "</table>"
      ],
      "text/plain": [
       "<class 'statsmodels.iolib.table.SimpleTable'>"
      ]
     },
     "execution_count": 6,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "print(\"Payments Variance\", np.var(data[\"payments\"]))\n",
    "print(\"Payments Residual Variance\", np.var(residuals[\"res_payments\"]))\n",
    "\n",
    "print(\"Email Variance\", np.var(data[\"email\"]))\n",
    "print(\"Email Residual Variance\", np.var(residuals[\"res_email\"]))\n",
    "\n",
    "model_treatment.summary().tables[1]"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "Notice how the variance of payments went from 10807 to 5652. We've decreased it by almost half once we control for risk and credit limits. Also notice that we didn't manage to reduce the variability of the treatment email. This makes sense, since risk and credit line does not predict email (nothing does, by definition of randomness).\n",
    "\n",
    "Now, we see something much more reasonable. This new estimate tells us that we should expect customers that received the email to pay, on average, 4.4 reais more than those in the control group. This estimate is now statistically different from zero. We can also visualize how the variance is now lower within each control group."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 7,
   "metadata": {
    "ExecuteTime": {
     "end_time": "2023-07-27T13:13:22.429207Z",
     "start_time": "2023-07-27T13:13:22.345338Z"
    },
    "tags": [
     "hide-input"
    ]
   },
   "outputs": [
    {
     "data": {
      "image/png": "iVBORw0KGgoAAAANSUhEUgAAAbYAAAEGCAYAAAAJw7AFAAAAOXRFWHRTb2Z0d2FyZQBNYXRwbG90bGliIHZlcnNpb24zLjUuMiwgaHR0cHM6Ly9tYXRwbG90bGliLm9yZy8qNh9FAAAACXBIWXMAAAsTAAALEwEAmpwYAAB12ElEQVR4nO2deXxU1fn/32funSUbCZlMMgkJKALKUimoxK0gKKJWre232uVX17bWutRiqbWloIJY2/qVutbaFrf226ptrdaluIAoVQMKoixFcCM7kwkJZJnl3jm/P+7MZCYzCYOSlfN+vfLKzJ0l52bumeecZ/k8QkqJQqFQKBTDBdtAD0ChUCgUioOJMmwKhUKhGFYow6ZQKBSKYYUybAqFQqEYVijDplAoFIphhT7QA+grWltbVbqnQqFQDHPy8/NF92Nqx6ZQKBSKYYUybAqFQqEYVhyyhm3Hjh0DPYSDwnA5Dxg+56LOY3AxXM4Dhs+59PV5HLKGTaFQKBTDE2XYFAqFQjGsUIZNoVAoFMMKZdgUCoVCMaxQhm0YIIFdAY31zVAd0FAFfAqF4lBm2BZoHyrodjsv1Ee45KU6Og1Jli546DQvp5faSKlaVCgUikMAtWMb4nRke7jkpQY6DWuf1mlILnmpgeqANsAjUygUioFBGbYhTlNIxI1ajE5D0thpDtCIFAqFYmBRhm2IU+Sw3I+JZOmCkiy1Y1MoFIcmyrANcbI7fDx0mjdu3GIxtgqX2rEpFIpDE5U8MsQxwmFOP8xG1fkVNHaalGRpVLhMlTiiUCgOWZRhGwYIYLTLZLQLQO3UFArFoY1yRQ4TVC2bQtEzan4cWqgd2zBAgqplUxyySCxj1dhh4s3WKO/mile1noceasc2DKgOaKqWTXFIElvUVT5RzdynapnxRDUv1EeoDXbtzjpzS9T8OMRQhm0Y0Nhhqlo2xSFJT4u6v+7siBu6j0NONT8OMZRhGwZ4s7W0tWwmNhVLUAxrelrURRJu/7clrGo9DzGUYRsGlLtMfn9qaVIt26JKD1evrlfuFsWwpqdF3RS3k4UziijP1VmxpYX756haz0MJlTwyDBBAebZg/jQ3QoCUcN+mZmraDBo7Y2UACsXwo9xl8tBp3rg7MksXLK708OPXGvEHTBZVenjuw1YmFzp47twKQpEI+Q6NfUGDmkBqoolieKAM2zDBZddZvrEuyS2TpQvyHDpgDNzAFIo+RACnl1oCBZ+0R1jXEODe6KIOYGmVjyfOKucLf9uF26Vx1dRCllT5VHbkMEe5IocJgbDBokpPijsyYCijphjexAQKXEKydF1T3KiBFWOrauyk05BcNLEgbtRij6nsyOGJ2rENE9wujRWbG5PckSs2N3P26DKUGoniUCAWb+vutTCjmSRC0GN2pHLXDy+UYRvCSCCUX8b6ZijJhv89uZivr6xPcrOoALniUCFdvO33p5Zy05u7489JZ/is7Eg1T4YTyrANMRJVFgxh45q1bQTMNi6dVMBkt4NXvjKaTsOg0KnEkBWHFonxtkRBcHlsAZev8fPw1hYWV3pSYmxq8Tf8UIZtCJFOOuvm4z04dcENa3cnrVKRJgKV9aU4tEgnCD7V1sRrXx1Dc0BiEmH1V0azL2SoThjDGJU8MoRIp7Jw45s+mhKKVDsNyXdfrueFmmBcXigxqqDEYBWHCrFrfZtWysf7TK5cXceZ/6xh9j920RyIKKM2jBkUhk0IUSGEWC2E2CaE2CKEuDZ6vFAI8aIQYkf098iE1/xUCLFTCLFdCDFv4Ebff+xPZSHxWCxQHsv62hXQeKcFnq2TKbp6yrgphhuJGpJf+3c9F66s5bIphZTn6iob8hBgUBg2rEKrH0kpJwLHA1cJISYBNwAvSynHAy9H7xN97OvAZOAM4D4hxLC/SntSWej+IWbpAhm1Vp2GZGuLQeUT1bxQE+S7L9erdGfFsKcuqLG5Ocx1090snFGE26WxtMrHRRMLAKUVOdwZFIZNSlkvpdwQvb0P2AaMAr4EPBx92sPAedHbXwL+KqUMSik/AnYCM/p10ANALOsrsVbtzllexhU4UurXHtnWEr+/xR9K2sUloia4Yrghgbeawty+wc+ydU3cscHPlVMLcbs0RHRdqLQihzeDLnlECHEYMA2oAkqklPVgGT8hRHH0aaOANxNeVhM9NqyJZX09eXY5bzcGGFvgoHpfiGOLXfFMMBMbV6+up6bNIEsX3D/Hy8LXffH3UOnOiuFKLGO4vjNCjt3GfbO9ZOk2Ptkb4vebm7l0UgGmhHH5OvfMLqWxQyVYDVeElIMnwiKEyAXWAMuklP8QQrRIKQsSHt8jpRwphLgXeENK+afo8T8Cz0kp/x57bmtra/zEduzY0W/n0NeE8ss4bWVrinFaeY6XvJZdAHRke2gKC4rsEl2zccpze+g0JOW5OldOLWRpQrrzA7PcTInUY4TDA3VKCsVnRrfb2Wwr5ea3WrhsSvI1vrjSQ7ZdMG6ERo6uUddh8t89IVZsacEfMNUcGIKMHz8+fjs/Pz9lXTJodmxCCDvwd+DPUsp/RA83CiFKo7u1UiBWaVkDVCS8vByo6+m9E/8JMXbs2JH2+GBnfTN0Gi1JxzoNyZs+g6OLxqLJCN5sjUnRVagEHjrNySUvNVDTZvDch608e24Fe4Imo3J0jswxEBw2AGeSylD9TLqjzqP/2RXQuPyJauZPc8eNGlhzY0mVj8WVRTQHNb76XE3c4C2q9HDfpmYuX+On6vwjOHwI1LMNpc+kN/r6PAaFYRNCCOCPwDYp5R0JDz0NXAzcFv39VMLx/xNC3AGUAeOBdf034oFBAhFhS3EnjsvXGeHQ+fIzNUm1bOXZArdL4/RSqDq/guagSU275ItPVysRWMWwIpYx3FMceewIB5e8WJdk8JZW+Zg/zc2t65uUrNYwY1AkjwAnARcCc4QQ70R/zsIyaHOFEDuAudH7SCm3AI8DW4F/A1dJKQf/cuszUh3QuGp1PYsqPYzL1/nZcUUsqizi/lPLuP1tX6+1bBUuk0KnprIiFcOSxIzhdJnDEdIbPCGsx3Wbpuo6hxGDYscmpVwLPW4aTu3hNcuAZX02qEFIY4fJzlaDf+xoZcExHua/ahVr357gVokpm3evZVv9ldHUthlKBFYxLIllDC98w8fymd743Ii5HHftDaVNnLIBy2d6WdfYSbshOabIwcxioTwYQ5xBYdgUmeHN1hiXr/OjY4rY2hzkuuluHt7aQk2bkeRWgdRatmc/aSciVVakYngSyxieeFYZu9pNbpxRxOQiFw0dBrs7DNbUtscNntulcemkAo4sdFCarXPjG42srQ/GE03G5bsY5VTzYSijDNsQotxlsnCGh8terEsJgNe0GWhRx3Li8dh9MwKPbGthUaUnKWNMicAqhgsCqHCZhKTOeyLMBQmJInfO8vLI1mZunFFEgUtP2dF9vM+aQ0uqfBxfUsEo50CfjeKzMFhibIoMqA5oXLm6ISUAftHEArJ0waRCJ0tO8PDovDJWbG6O17LFCrZr2gzu29TM/Glu/v7FUVSdX5E2cUTpSSqGIjEZrbV1nSkNRa9d08DM8jz2hmXcqMUe665I0mZ0F6lTDDXUjm0I0ZNWpGaD387x8ujWPTz3SQfluTqXTipghteFx6XxrZW18dhbTZvB4++3cO7ho2jsMFIKVNN1EFCZk4qhQHVAY+EbjSw9sQS3S+OiiQVxpZGHt7bg0gVBU/aYRAKWd8Pj0ljfbODNVsXbQxVl2IYQPXUInlzoZHenwdeOLOBdfwh/wGRKoZ2T3RIwWHaCJ94VYFy+zsIZHmb/Y1daw2V1EKhLyZysOr+C0cplqRjENAdMLptSSM2+EFdNLUzqu7a40sM0j5OtzcG0c0hG48/3zfbyrZW17Gw11KJuCKNckUOIcpfJH04tTdGFXPBaIz9Zu5udLSH+cFppkosxsfnii+eN4k/zRqW4MxNT/nvaFSo9ScVgx2XXWVrlIxghxRW5pMpHwIwwudDOkhM8SXPo96eWcnqFk9VfGc0fNzdzwYQCFs4osgSU3/CpcpghiNqxDSEEMCZP58HTy3h/T4jxBQ527Q1xzdSRhCWU5uhk6TaaA8kuxsTmi+ube0/572lXqDInFYOdfUHr2o79JNJpSN7eHaQi185JpS5u/0IxxVk6R+Z3NRt9p8XgrLH5SclViyo9NAdVOcxQQ+3Yhhh7ghGaOsJ4s3Uue7GOuzftIYJg2bomvv1iPWf8cxev7w7z5efq0vZa66n1TUzpPF0HAZU5qRgK7K9I24zAtWsa2NVm4nbpFLm0uHt9V0DDQEuR41pa5cOlq/X/UEMZtiFGWY5Gea6Da9dY7sSLJhakuF2WVvm4YEJB3MWYmOUogb/OK+3RcHV3XfaUOalQDDbKXSb3zfby2PYWfjPLm+Kyf2Rbi5X1GIpgSih2JTckXV3bkXanty9kDMDZKD4LaikyRIi15NgTlLztC8QnYE/aeLHj/20x2SZTsxzfuqCCug6TkqwuV0yMRNelcj8qhgrVAQ1fR4j75pTRaZj85cwymqItbHbtDQGWkSvKsuF2ammTpdK54S25LVSG5BBCGbYhQGIK/nXT3WTrImkCppuMU9xOSxzZqfHlZ9JnOR43EpThUgwXGjtMWsOSkGni6zTRbYJrXukqxF5c6SHHLni/OURxjs67IRN3lj0+Nx7emipgsLjSw4Uv1OEPmCpDcgihXJFDAGtVaU3Q4iwbJdkaj84rY1FlESPsIiXL6+bjPSx6vZGFlR7q2oIqy1FxSODN1tAE+DojNHSYfH9Vcvbvkiofe0MRWsOS769qYPQIJx+0huJzJyZgsGC6m3+eU86C6W7ujar6KMHwoUVGOzYhxGzgYynlR9G+aLdhLfV/JqVs6MsBKrpS8MtzdcaPdLDJF+KaVxrjq8r755Ty+Fmj2OgLMqHAgURy6eSRLKvyccfMUsbl6+xs7YoTJGY5SqAuqLE7AG3hCGNybSmuSYViKFDuMjmxNIuQGSFLd6R30UuQMqowEo5wUmkWd87yxmPWsRrQAl2ydF1TyuuVYPjQIFNX5H3AvOjt/43+NoAHgHMP9qAUycSyvS6aWMDekExJFrliVT1/O6sclya4tJuO5H/3BLjt5BIuXJkcY6twWUbt1d2SrS2BpGJW5XJRDDVi7vqFbzRy2ZRC8uywaEYRMXGsh7da3bKnelx80BpkXL7Oe01BLtvo565TSnh0XhnhCByeZzXfrQmospehTKaGbZSUcpcQQscycGOAEL10rVYcPGIp+Jv3hOkIR9KuRNuNCDe+mZoduWJuGVubQyyY7uaYEhdjE3ZkuwIab/k6uH2DXymNKIY0sSSQ+dPcPPdhKxdPLuT2Dcmxsmy74Idr6vnGkQVcf6yHoGHy0+OKGOnUuWFtQze1EXjoNG88BKDKXoYWmRq2vUKIEmAKsFVK2SaEcAD2vhuaIkYsBf+Ighz2hmXalWSWbsPt0uKakOW5OhdNLKDTiFBZkkVb2EgyamC5OHtqwKhcLoqhRGOHidulcVyJk3ljcjjjn7tS4msLZxSxs9UgglXPtmC6m6XrmlK6ZMQWdrHO842d6bOHFYOXTJNH7gbWA38G7o0eOwn4b18MSpGeT/aG2ewPcvcpqTU689fUc+mkAsAyaldOLWT5Rj+XvVjPec9Us73F4CvdirZjwfbeCrYViqHAqByN64914w+YVO8Lp12sxXZeebpg/jQ3Y0bYWTijCLdLS1H4bw6aVAc0GjtMvL0YNdUJY3CS0Y5NSvlLIcSTgCml/CB6uBb4Tp+NTJFEdUDjg9ZOAMqyNW6cUcSYfAdt4Qi7OwwCJowf6YjH4tIpKMyf5k5yM5a7TI4pcrC40pMSY1MuF8VQwpDg6zCZ6nHyblN6oWMbcNvJxQQNyfKNTfHr/ebjPdz1TnNc4X9cvk5Nu+TMp6t7jTurThiDl4zr2KSU7/d2X9G3NAdMRjh1atvCfLQ3jBSCRa83csGEAjQb/GaWlyKn4Jcneyh06r0WbcfcjAKYWSwYl+/i+JIK2owIY3JUVqRi6BFzqwcMyYotqfVo988pRbdBnkOwxR/iuuluwEoqufFNH7840UNJjp1FlUXMLs/m8gw6XKhOGIOXHg2bEKIa9r+zllKOPqgjUqTFZdeZ/+ourpvuJhiBh7Y0c9mUwqTJe+csL0e7XWzwBXpszTEuXyfPoSf1mxrlNClzEne9JAooxxRPGjtM1Z9KMWiJudWLs3X8ATPeUNelCyYVOrhhbSMBk2g7m67dWiy2VhzVXu00JLe/nRxzg/Rx5946Yaj49MDS247tW/02CsV+iSmXAwRNyQUTUt2N165p4MHTy9BslnslliUZm8DPfdjKz3roxdaTS0W5WhRDgZhbPUeHO2d5+dVbPgDKcnTebQoSMOlRV3XBdDfbmkNpXfe3rrdq2dJJa/XWCUNiqgXhANKjYZNSrunPgSh6J8+pMy5fJ0sXTPO4eLOhM+1qsS0U4Ya1u/m/M8pYXFlEWY4dh2btvW4+oYSzo3GD2PMveamB1V8ZzSUv7cr4uHK1KAYbMbf6a00R/rmzlUWVxVyxqj5pYWdE0rezmTDSwU//szvluBZNretJWitWhpOuJEAtCAeWjGNsQojPA18AiqDr85FSLj74w1J0xzQNrj/Ww7VrGphc6ODG44vTrhYbOqyd3Qaf1Xtqb9Dg+v9Y9Wyv9KBeXtuWvkdbbXvvvdsUisFGoUvjmJLsuFGDrh3Yg3PL0s6ZUTmW+zKRLF0wb3QOlSUuqhoCcWktIGlxF+uEkVgSoGJvA09G6f5CiMuB/wBzgJ8AnwN+BIzru6EpEtE1PS77c/qYPH65fjfLZyan/d8/p5TDR9h57KxRFLtsXLumAU+OnUWVHqr3hYjI9Kn9o3L19Mdz0h9PLAVQ6c6KwYAE/lkT4fW6Dsbmp5fTcmmWmzJxztw5y0tteyhlLi2q9HDJC7U0B0xydMHFkwr45UkebjnRw3XT3fhD1t+MdcI4bqT1W6C60A8GMq1jux44Q0r5ZaAz+vurQLjPRqZIYnega7IIAWvrg/xhczMr5pbx0NxSHjuznKVVu/l//67jkhfqyHVqzB6VhZCwYnMzY/OdPLbdyhZLnMC/P7WUI3OMtM1FezoeKwVI7GU196laZjxRnba5qULR12xv17lydQOtYcmeoJF2Qfb27iCdZoTFlUX83xmjeOqccmxCUt9m0hIwWDHXEhafP83NfZua2dlq8L1VDbQbkoe3tsQb+i5b18RZT/V8re+vma+i78nUFVkspXwtejsihLBJKZ8XQvy5rwam6EICmuhqVZOtC04udfLD6UV82Bric0VZXLO6jgsmFMRrcWICyA4twgUTCrhtvY/LphSyYrOVLabZ4KTSLCpHRpKai3ZXWejpOKh0Z8XgIeZOH2EX6DaRVJs5Ll/nlyeXsKU5hL/TJFsTfPulOp46p4KxI3SydY2GjjC79oZ4cEsLF00s4OKo2IFl0NInnvR0rfcWe1P0D5kathohxGFSyo+B94EvCSGasPQiFX1MdUDjB6/UsajSw4rNzRRna3z7c4XcsNYSfH2vqTMl9T8mgHx0kYscu6Chw0qBvmhiAWPz7Rwxwk6xC95qJp61la65aG9NR1W6s2KwEHOn6zbBT9buxu3SmD/NTb5DkO/U+VaCCPjymV7cLo1Nvk7yHDq3rPPhD5jcdYqX649185O1u5M0JoWU7DPSJ5582BahwkVSUsj+FoSKvidTV+SvgInR20uAPwGrgJv7YlCKZD5pi7Cz1eAfO1p5+PQyKnIdmBG4d3YZz33YSkWeI63SSEWeg5o2g6Ap+fGxVkHq8o1+PtkbJhiRHPv4Z3MhKpeLYrBQYJc8cGophS5LnKCmzeDW9U20hiTzX03uyzb/1QYunVTAxEIXf9rWHNVUlfzglQZ8CYu1mMZkrOFTWvdmY4B/1qTOnXSxN0X/kamk1kMJt58XQowEHFLKtr4amKKLXIeNLF1w8cR8/tsS5urVXS6Oe2d7sdHDarIlRLshWb7Rz+JKDz+YOhITwfh8natX1+N2aVw00XJfbtkTZkphNqOcmbtLlMtFMViobjPZGzJp7DCTMh9jajuJdBqSsfkOfrimnttOLqGhPczPjitCCJjsdlKeqycVZgtpuSS7S8/Firj9AZOJXxnNUTlGyrgUA0OmjUa77+wMwIjG2iLpXnOgCCFWAGcDu6WUU6LHCoHHgMOAj4ELpJR7oo/9FPg2ln/sB1LKlQdjHIOREicsOcHDUYUuzv1Xch3aVasb+NO89GnMUz2ueNrzkiofT51TQb5dUNtu8N0pIxFCJBVxH5Fvp2xU5rU2yuWiGCx4szXqOyW/2OJPktOKiXx3nxu17WF2thp82BqiKEtn+cZUg1XTZiWhTCt28afTS/C4NI7xVLCmrgMpSVImqW03OCpnoM5e0Z1MXZEGVgZkup+DxUPAGd2O3QC8LKUcD7wcvY8QYhLwdWBy9DX3CSGGrf+r1GlyjMdJayh9LzYjQkq68m9meQGTiyYWsHBGEddNd9NpmDzzcTtv+4KMyXek9G+7YlUD1YED+zcql4tiMFDuMhk9wp4kp7VwRhG50ZT+7qn897+7hyxdcFi+g6tWN6S48a84eiRZuuC2k4vZ1BRgX1gQkVDoEtyxwc+t65viRi1WGqMYPGT6aRze7X4plpH518EaiJTyVSHEYd0Ofwk4JXr7YeAVrDq6LwF/lVIGgY+EEDuBGcAbB2s8gwkB2GSEPHt6CR8p4JZ1ljTQUYUO9oVMDNPEF9BYvtEfX4n+do6Xv2xvYWerwaLKIpX4oRg2VAc0ZETG3YW3ru/qs/bAe12ZwJMLnSx4rRF/wGRxpYdAOL0b/7A8O786yRP1djQludofnFvKpS92qZrcN9sqjVEMHjKNsX3S7dAnQoiLsXq0/fGgj6qLEillfXQM9UKI4ujxUcCbCc+riR4blkigukPSEgyk+PkXV3r4uCVETZsRb5r4j7MrAPjKM8luy++vaojr38WKtdPp3HXPflQoBjuNHSZ7DcHfd7TylzPKMKQgWxds8Qdo6DBZvtHP/XO87Nob4uJJBUgJ925q5rLJBWnnwfY9ISa5nXFhZEhO8V/9ldHUthuMytE5MsdQnopBxmfZP48APAdrIAdITz3/0rJjx44DOj7YCOWXcfnLrbhdGr84qZgF091EsPzI2XbBo1tb48FvgPawQUSKtCtRV9Ql8/DW1NYeD8xyQ9MutjgKaAoJihyS7A4fRrj/6vCHymeyP9R59C85heW4snO5aFIBO1rDLH6j67p+cG4p7iydujaD1rBVbB1zI67Y0sI9p3i5+pWGlBjbTcd70s6hj/z7KOuoZTRAK+zs53MdKp/J/vgs5zF+/PheH880eeRRkg1HNjATK+2/L2kUQpRGd2ulQEyptAaoSHheOVDX05uk+yfs2LFjv/+cwcL6Zug0rMlY1xbGlHDkSAcl2Tq3VDXylfH5SQbqd3NKKXSl35FNKnTEs75WbG5m9VdGsy9kxBM/Xqgv5ZKViVmOozn9sP4Rbx1Kn0lvqPPofxpCGr6QoD0cibsOAdwujY/2Gkmuw8TkEH/AxO2yxReLsaQQf8BkbL497Rw63J3H6FED838ZSp9Jb/T1eWSaPLIT+CDh503gm1LKa/pqYFGeBi6O3r4YeCrh+NeFEE4hxOHAeGBdH49lwMhzdmk27g1b6fvvt4S4enUdP5xelFLD9r1V9exsCafIZ903x8tvNjRx0UTL/bLsBA9H5hjxxA9LSaQhxfWSLqFEaUQqBgsSqPKFeWFXO0VZVh1bea7Oz44rYskJHjqNCG6XdQ3HkkNic+Dm4z3csq6JLLstnhTiD5gsO7GYxa838sCppT1KymU6NjVP+p9MY2x9XogthPgLVqJIkRCiBrgRuA14XAjxbWAXcH50PFuEEI8DW7EyNq+SUg7bwJBpGtw5y8u1axri9TTPftjKgmM8bE/oIxWj05CMynVw50ZfPGg+tcjJbzY0MbM8j6OLnKw8bzQR06Am0NUrKlMlkZhGpGrLoRgMVAc0rlhVx3XT3Yxw2BiXr6dV4ont0qw6Nru1S4tI3todpCVo6a5u9gexATYhWVsf5Nwjwjx9TjkBU5Kl2XDpUB+0MpX3d62reTJw9NZB+7JM3kBKueJgDERK+Y0eHjq1h+cvA5YdjL892NE0nUe2NrBibhl2myDHLinKKuSX633ccmJJWnfJu00BvjWxkNagQWtI8sM1jdS0GcwenccWf5CWYITWoMHvN+9h2QkeTi+1keXQ075Xlj2547bSiFQMJmILsoe3tvCH00q57eQSLlyZfH3GGoc+sq2FSycVIIEIVgF3li64bEohP36tMR57e3BuGePydSIReKcpmBSzW1zpYVKBzsxi0auBOpB5ojrVH1x627FdmHBbACcBDUA1VnzLC6wFDophU/RMa8jkrLH5XPZiHX+aV4oQOj94xZowC15rTEkCuXOWlwfea2ZLc4iFM4qSugBXlmRxxap6/AGTBdPdXP65Qu7e1ExYuqlr70h5r0WVHl6v7+D6tb74irMkK72agyoVUAwEMWm3mjaDnS1BirLsPSZOXTW1MCmr+HdzSrm5soi7Eoqtrb6GYe6bU0ZNW5iP94Zxu7T4bm9JtOv24SOye13IKQ/IwNFbB+3ZsdtCiLuBf0opf5Nw7FrgiD4dnQIAp6axtMrH5EIHe4KSD1o7mT/NHc+C/MeOVuZPczPJ7aDAITCk4JrPu6lpCzOl0MGxxU62NIe4d7aXcMTk4kkFcdXyG9/08fC8Mi5eablyHtu+J/7eMtry5oIJBUByZ21VKqAYLJS7TO6f4+WKVQ08tLWVO6IF2d2vz+NKslJKYL63qp5nz63g0smSiITHtrdw/bEeOs0IX4qq/KRzZUZgvwu5mMHd3zxRHpCDT6bJI98C7u527B6Sd3WKPqItbOJ2aSw9sYTb1vsoybajRY2aJuDSyQUUOCy3SFMgwjeer+XiF+q4ZV0T9R0RfnyMm8fOLCNsRtjeHOaODX6umlpIXnTShaLK5Q9vbeGyKYUs3+hn2bomlm/0c9mUQh7Z1hIfS6ch2RfqvU+bQtGfCOC4IjsPnl7GwhlF+DrC3DM7+fpcPtPL+82BtDuoT/aFWVrVxB0b/Cw4xsPYETaaOkyum26pl7hdWjzhJPZ+Ntiv2HdMS3V/80Q1Jj34ZFrH1gCcCzyZcOwcutLvFX3I4bk2rppaSG1bmO9MHkldu8HtG/xJPn8N2OIPxZVGoEvJfHFlEftCVjblshOLcbs0llT5WDijiCxdUBrtlF3TZsTliKx+bdncUtUYF0oGa0VbkqVx7EiURqRi0FDqNPFl2eg0IRyBUdkRHj+rnHWNnZgRuP1tH3eeUpp2B1WUZX0NdhqS29/28fNKT9L8iu3WYvG4WIxtfwu53rRUE2Nqsaxn5QE5eGRq2H4A/E0I8WOsGNtoYBLRLEVF32JKWFLl48G5ZeQWOLj0hWS3xZIqHyvmltHqD6Zd+Xmz7dgI02lIFr6+O64+IiQ8Oq+MvSGTv3+xnB+8Us/OVoPlGy0h2bs2NnHplMKkbgL3zfbGJ2dPfdoUioFgd6fJzlaDP25u5tdfKCEYiTAmz05jh0HAhF+s283dp3i5JqEY+57ZXuy2SFzg4NhiJxt2B7luutXm6eGtLSyNxtROG53DmaOzGemAsgyyIiF9P8PuMbVx+Tr3zfZy5epP3yVDJZ8kk2m6/4tCiCOAM4Ey4FngWSmlvy8Hp7Au2O2tZnQ12cRPjk2v8dgetpospFv5fdhqyQPFnhtbeR7tcXHBczVJSSd7AlYW5X2bmrl0UkHcqMVee+XqBg47t4IiJ4f85FEMHqoDGu82dfCX7S1cM83Nf/eE+ePmZr4zeSRHFDj43y+U4NIFv37LlxRD/sU6H/efWsbyjX7cLo2K3PS7tbH5DqrqOxiTpzP5MyZ1dI+p7Ww1WLbOlyKWkOnfUMknqWQaY0NK2SSlfFRK+Usp5SPKqPUP1QGNEQ4rCP3W7iC+TiNtw8OGDiMuk9VdyfzBrS3saAnFj9mAh+eWstkfSIojXLumgXEFDvIdgqumjuSoQifXTXdTntu1/uk0JC/VdHzq5qQKRV/Q2GESAS6YUEBTh8kfNzdzzTQ3UggufaGOrz1fy9efr+XcI/J5ZFsLy9Y1cev6Jna2Gvg7Te4+xcvyWSUpTUmXVvm4dFIBIxwCCT0KFhzoWBMXn+W5OhdMKKC23cD7Kdz6ByKscKjQWx3bv6WUZ0Rvv0YPWoxSypl9NDYF1iRoCsp4Gv6t6/3cdYqXH3Rzp/xinS8uk/WnM8rY4g8RMGRcHiiQ8NwcTdJhJquW/2aWl5aAQZ7Dhs0muOmNnvtTSakytxSDi2ynjiaCSAER2WXgYrsvsK7ZG9/0xV3xYC30NvuDLF3X1GPHi7H5Dn6ytpEFx3hwu7RPVdbSPaY2Ll9nZ6tBea7OlVOTi8kPdLeVaVnBoURvrshHEm7/oa8HokiPN1ujOWyyYrOljLBrb4gRdsGj88rY1BTEjMCDm5u565RSAqbEqQlydMELH+9lbX0wnhHWGjSYP83NL9b5+P1pozjrqV1JE/6Hayzl/9dqO1O+DGLFrbHY232bmuOPHcqTRzF4CBuSoiyNshw77zYFcGqCDjN9Sxot6qeKJYLcG72ee+p4EWtKOv/VBhZMd6PbNKoDmbvi07kK75vtZdk6HxdMKEiRxDvQBWOmZQWHEr3Vsf1fwu2H+2c4iu6Uu0xq260d27bmIFLCJS/W43ZpXDSxAJcu+MlxRTR2GEnB53tme1lcqfFKbYBb1vkAuGhiAV87soCmTqOHlamduvb0j33e42TBdHdS1+BDffIoBgcS2BOK8Ku3/PzkmEImFToodOmsretI31m+yMljZ44iAnG1kfJcnbzoIjDmjkz0VkDX7u3CF+rwB8yMd1bp6tSuXN0Qb33zWXdbsbKCmDtSld9kGGMTQnxDCDExevtIIcQaIcQqIcRRfTs8hQAq3YLJhQ7mlGdzVKGDTkNS02bwyLYWdJtgXUMwbtTAmhhXr27AqVmNRgGunNpVn/aeP5gUpyvP1Vk0owiA471ZjMtPXu9k6YKj8jWmFFodimPHDvXJoxh4Yruhjb4A/oDJNWt24+swMCIR3Fkai7vFnH87x8sP1zQigW3NQfwBk2OLnfxmVgntpqQ1aLC4sogH55bxlzNH8Y8drUkLudr2cLxIO9M4Vk+uwn0hgwkjtLQx8/3VyCWSWFbw4nmjqDq/4pBOHIHM0/1vAU6M3r4dq8FoG3AfMKcPxqVIQAAf77OaGXpcNhbNKMKuCU7wZtFumLT30AW4pj3ML08upjhLZ0uzlcL88NYWVmxpiTcsdbu0FJmhu0/xctt6HztbjaQU/4oeanIUioEithtyu7T4bqso205Ywt0b/Xxn8khWzC2jPRzB12lQ5LLhD5g4NTgi38EvTy7GYbPFtSWzdMFtJxfT0BHGlDrLTiph4X8a2dIc4ubjPdz1TnP8b2e6s+rNVXiwdluq/CaZTA2bR0rZKIRwAScDXwXCQFOfjUyRRHGWTlNniPoO4jGwcfk6d8wsxW6LcNtJHu7ZtCdpdVmWY8ebrbF9TxCnJgiakt/MsozWvZua+fsXy2kNRVK6BF/zSgMPzytjk89yfS5b5+OYorLoxFGTRzF4iO2GatoMjIjJs+eOptMwaQpE+N7RhUnixbeeWMxWf4jFlR6CpuSlT/Zy2RQ3q2ra44s+gI5wcmLV3ad4CRom3ZdxmbriezNevRVxKz49mRo2nxBiHPA5YL2UMiiEyCZ9J2vFQUYCESnJstv5fyst/bryXKs1x9ee76pDW3KChzs3WlmQy2d6+e5LtXzv6EK82To/eq2r0eLymV5uf9uHSxe80ZC+qHuTL8iydV3rFpUkohiMxHZDbpdGhwGL32hg2UlevvpcLW6XFq9ZswHTPA6aAhG2Nof4eG+Y08aMiCdRxeJpNim5uVsyR2yhd/HKOhZMd7N0XdMB7az2Z7zUbuvgk6lhWwq8jfVf/1r02KnApr4YlKKLxIyq66a74xPuiqNHpmRTLX7Dx5NnV7AnaJKlQcCExW9YqgndZbb+74xRXP9aIzcc50nrJpEJti5LF+Q5dKzWdwrF4CG2G9rcHObpD1r54fQiGtqN+A7skW0tXDSxALsuaDfghrWNcRf74kpPkmr/0qiCT7qFXiiaYTnD6+LF80b1urPqSQVEGa/+I1PlkYeijT2RUnZED1cBX++rgSksumdUxVanZTnpW3PUtIX5aG+Yx7a3cOXUQu7b1Eyk23t2GpKWoMlbu4Pctt6Xkgl25ywvv3rLF/97iyo9BAxl1BSDj9huqNDloiLPnhQru/0LxdhtNq5dk5rlWNNmsKQquaat05B0hCNpF3pul1V75nFp7AsacYO2q5sBA6UCMhjIdMcGkAWcJYQolVL+KvrajJVLFJ+OxIyqmLJIZzjCx3tDaSdgQ4fBHRuserMVmy1ZrO5k6QJPls7CaCbkHzY389y5FRgRkzyHzoLXGrhgQkFS65qzR5ehVpqKwYgAnHaNa9fUJnkmGtpNbt+wO21N5q3rm+LycjGydEG+08aSEzxJsbm7T/FS2xZk4QwPs//R5bq0atG6doAPneZl4ki7akEzCMg03X8WsB34f8Ci6OHxwG/7aFyKKLEYAhBX3x9X4GDFllT5rN/M8qLTNYEvmFDAEQUOJox0JD1vcaUHSYSHt7ZwxwY/F00qIFsXICFbk/z8OHe8LY5ug/89uVil9SsGNU0dqfVgEdI3xI0Zs5i8XOz2/XNK+aAlhN1miYP/4bRSVswtozRb8PkiV0pJzZWrG1J6FX7SFumxLk3Rf2S6Y/sN8DUp5ctCiD3RY1XAjD4ZlSJOucvk96eW8t2XreQPf8CkNEfHHzDjLWZiwfHiLBu79nVNvBxdMCpH57/NARbOsOSCPlfkpLHDYP4aqx3NI9taaA9LTklYid4z28tftrckrUT3lyek1MUVA4UEXHZbigdDE+mVRGRUYeTOWV6aOw0WVRYxtchJnl1wxaqmlOdXnV9BYxrD2X3H12lIRjhTx6GEDPqfTF2Jh0kpX47ejn1iIQ7Mlan4FAjgsDwbfz+7nD+fUcaDc8uobzd4dN4oXBrcut5qkJhlt7GjJRRP+sjSBSeVZVHV2MmekGRcviVu7HZqPLrVMlpCWGokS7oloVydZiXaWyFqLMGl8olq5j5VqwSSFf1KdUDjB6vrWT4zuannEfkO7puT2nC0wClYMbeMPQGDG173sbSqiQtX1uHSNH53amnS839/aikVLkvfcVFlEQtnFMVFwdMlWeVEPSLdPSSaWuX1K5kapq1CiHlSypUJx04D3uuDMSm6YUqNLU0dIESS7z+mAdkakqzY3MxtJ5fwwzWN8SLTj/eFWbauKen57/g6+eE0N3XtYUbnOXi/JZTRSrS3dH/V2l4xkHzSFmFnq1XH9ty5FdS2G2zfE2Lh67v58fTCpDY1t0TFwhdVFmEmZFV1GpK1dR3YNcHNlUV4su2U52ocWxCJJoMklwWs2NzMz2Z48Hdaclwxia09nQb3JnhSpIR7NzVzrKeEUc6B+x8damRq2H4EPCOEeBbIEkL8DquD9pf6bGSKOLs7DYIRq1C6e9p+TJz4zlle6tvCXDypACmhIxzhhrW7U56/YLobQxoICZe+WMej80aluE7G5etMcTvjySWxrtk9uVKUurhiIMl12KKd4O34g2bcbV+eqzMqz8ENr9emuAaPK87iytX1ScfaDcny9U3Mn+bmxqp6/nVOBVva9LhRg6749YNzy1jwWiMuDX53aikRKRmTY8Nhg0snFcQzkR/Z1oI/YCpXZD+Tabr/m0KIqVjJIyuwumjPkFLW9OXgFBbeHJ13u3XHLs/VuWhiAUcXOVl53mjq20MsfKuZCyYUoNng6CJXvEYnRqchiUC843anIblhbQN3zvLGU6LH5evccJwnrkaSKKnV4/iUurhiAClxwq0nFrM3FMGUXQkjF00s4Ia1DfGWT7Hr+d7ZXnLtJOmeLp/p5ZbowjHfIZg/zc3H+8JA+gSU9/xBAC6bUshXn61JmiuJ8enFlR4mFegq+aqfyThGJqWsBX4Vuy+EOFoIsVxKeX6fjEwBWPErG5ITS7PixiNdD6d7Z3tZdmIxl7zYpTASa8mRKLMV66UW67i9s9VAygjzp7kZm28n127j0hdTlciP6cWtqNTFFQNJqdNkapGDsBS0BM34PBHCur7v6+YaLM7S+PO2PTw6r4ztzSEmuR1EJFw8qYA8u8CbY+emKmseLa4s6jEB5aKJqS1nrlxteVFiheEdRoSSHDtK3KB/6TV5RAiRLYRYKoT4lxDiDiHECCHEWCHEk8DrwO7+GeahSSwp47Qnq7ELuH9OKYtmFHHj8R4CRoTJhQ5+dlwR10138/HeMJ/sDSdNsiXR7r/QtSp9ZFtLvN4tdnzCSBe3rm/io71h3vOnl9jqLV1ZqYsrBhIBmGYEu4B9IZO7TklOGKlpM7h1fRPL1jWxfKOfqoYAlWV5/HnbHia7HXQYkk1NQR7e2sLNVU3UtRu4XVayVEwwvHsyyCPbWhAi/W7OpYt4N42lVU3M/sculUzVz+xvx3YvMA1YCZyJpRV5FPAw8F0ppRJB7kMSkzI6TUnQlEkCyNcf60lSVVg+00t5rh7foXUakjEj7PF05tvWN+EPmHFNyVggvC1sxuNqth5SpPMcOuubjR5T+ZVkkGIgKcnWWF0boChbJ98hWDDdTa695/5q/oDJv86t4Jynq1Mei7nqN0fdjX/f0crT51SAtGJlH+01ktyY3efK+AJHirC4SqbqX/Zn2OYBn5dS7hZC3A3sAmZJKV/r+6EpYkkZ5bk6ud2UFS6YUBA3apCcTJLY9r4kW8fXaeDUYN5heZw3TmCakksnFzCp0Mm97zQxs8wbj6u5XVq8pU1swv92jpdvraxNqmtTOzLFYEECO1oNxhY4MCMRgqZgaVTAuzxXjxspKUlqlFsf3ZklakXG5s/WZksEPLZDK8simtVoUuGyatuagyYTR3bVmMZibNX70mcaq2Sq/mN/hi1XSrkbQEpZI4RoU0at/4glZVw0sQB/ILlAtCc3SGLb+/vnlNLQFuJzRS5e+KiVu97dm/T8ZSd4uGhSISs/aY/vBGvarHTlBdPdTHY7+WhviN3tBjtbu3aBavWpGExUBzS+9UI1fzjVy642k8+5HXFN1SuOHkmew8Yd0es7RpYueH9PiCuOHsnPX/fFk7HG5ttZXFlEdrTwLObSn+Ypp8xpeSYSvRNT80WKav/29uz+S6aKRKI/pvVjWr+FaXYdjx4jEokeT35MdHtt0nuYJsjIAbxv8vuINM/F7oBZXzm4/4du7M+w6UKI2STITnS/L6Vc1UdjO+SJK5fvCWPXRNrJ0v3+KaOycZ3god2QLK3azWVTCvnl2/Usqizm2IYgDR0mF020MidPGpXNd16s5WtHFiS9T02bwdJ1TSyqLGJcvp2Fr/u6xhT9Atix10SgFEYU/UziF3n0y7LZbzKifQ+jgk4eWFfHiZVF/HlKCMMweej1Tygbm8OfxsLdG3wYhkm2LcLFR+bx/CvvctGRI7gu3MKJDidPPt/CR6ZJtojwP4dnc71/L/sCYXQZIfKUi9Z8HY8eTvnCHhcxKQlJOkNhDJvkaMK8127yRm07ImLiIEKlx07JbyNJRqXLcOzHGESNiYiYHB0OY0N2GRo59CJ3Miunzw2bkL38Y4QQH0OvMU8ppRx7sAeVKUKIM4A7AQ34g5Tytthjra2tvX7iO3bsYPz48X08ws+OBN7dp1PTFuaTfUY8CytdjO3OWV7cLsH/PFsXf32WLuK1bn+aV8b2lnBSNuWiSg8akpuqUqWEXvzyaFqCJusaA6zY0gKQko15MN2SQ+Uz2R8H9TykTFlJd62ce1g1d1tVi9iXaeKqOoMVeVNjI0WFhcl/L2VF3m01nnQs+QtapBlD2vElfJGnHJPde1UohhrS4eKd6+8+aHMkPz8/5eun1x2blPKwg/KX+wAhhIaV3DIXqAHWCyGellJuHdiRHVyqAxotQYMCp8aNb+xmxdwydrSEmFTowIxIFkx3E8FKbw2YEWwi+SONpT13GpKIFCnpyUurfCycUZRS63PfbC+XvFCbVI8j0jRhPOhuyTQr8uQv1v24RXr8ojRTvyhlJO37pnehdP8ij6Q5Zv0+oq0Nl8vZg9umF2OQ7st9AL/IRw3YX1YMayIH6buiF4ay1uMMYKeU8kMAIcRfsZRQhpZhS/riS/V7t+8xyQ1L6vYFuP0wSe1//Ty/pRn3hDye+O8eTMNAkxF0GSHbFuH6aQV8e5+fOaNc2CImOhFcWyNc0djKxPUjuOSTJnQZQZcmuoygyQiVASfvNnbwnFtnpF1QaJO89Me9XBMw4s8r3C450eti3r4gNmlS0xIgZJjo0sRbbcdl676LSOPD72k1Hv1C/7xpIoZBUvSIgR6A4pBC2mygaWDr+pGx+5oGNlv0uA2p6db9+POt2zL+3K7f8WPCBrpu/dYS3ttmi75et56bMo7o30scg6ZZx/qYXl2RgxkhxFeBM6SU34nevxColFJeDQfPFWl/6hG06g9SvoR7DqTuzz3TzX00RP//CsVAIbt9Uca+yMNoNIWgIMtOEI3dQUkIG4bQMIUNabPhzXWCrrOj1SCiaYwdmUWey85eA95tDhPAes8pxTls3hOm1RAYwsbxZTmsaQjF3wtN44RRubizHays7qAhKOKP2XSNG44rwu2yxceZbszWF3+yMYkbmRRDY0PaND74+GOOGD++67iwkSTsOkQ4mO76A3ZFDnJ66sqewo4dO9K+QU/HEzli4xuM+GjbAQ1MoTiYSJuGFML6HfuitFlf1Ahb/LiMrqDjz9d0SHxd9MtdRp+DzYYUCbdj9xO+SKWwpXlMi77O1jUekfj3bcljjY4haWyJfzNpLN3uR7+848eFSPki1+123rOPZkdrmKVVTZw1Jpv/N7GA//fvupT/5Z/PKKMlYJBt1xnhEHxxbSN3nVLKD16p55LJIxmX72CLP8jPtrZQM7JLxODReWXcs6YxSaJu4Ywi7tjg5+/fKeN/nuuSoHtglpvmSD27w+EMP2AShElMes2cdGaxY9fwUDLM5Pu3J/ZnFIeyYasBKhLulwOpVzLp/wmZrhhcubmfcniKT4vs5iZBaEg92dXStbK1XCGJbpAu10zCY4numYTXpaykY1/kaVwoSe6ZbruFxPHW1jcwavTo+Bd7iium+4o8xR3UbTyfcUUeS1E/UIZKMs+ugMb3nqjmuuluxuXrfHNiPhW59rRZw7v2hTElLFhbz4Nzy/j2lEKKsmzcPtPL27sDfNAaYlyBI6kAe1GlhxvWWv0LE2tEY/J0JoK3LqigrqMr5V9wWJ+c61D5TPZHX59HRoZNCOEBOqWUbdGkjYuwlhV/knLAotvrgfFCiMOBWuDrwDcP+l+x9dyH7GCRzh8eOxZCY3cQCrLtBKWN+oCkKMdJbWcETdNw5ziI2DQiwka2y8Hb/jAmNgxhuWAMoTG5OAsZvb2t1WBScTZvNgYJSBtC0zipPI83dgc5/fB8HvugnU5pw8RmuVx0nWunF/Hrd1roiHS5dTRN46xxBUzxuJgwopuhSTAaDWE7TSFw5zjwZoFIMUpdX+47PvyI8RMmDEnXSiL7sndgDoMvn6FCTMhg5cf7eODUUj5pM7jsxdqUhKibj/dw1zvNLD3BQ6ch0W2C8QU67/hCSdnF9872cuOMIvYZMqmoO7FG9ObjPUQikkWVRXSEJTtbDWYWC4RS3RkUZLpjewa4AtgILMNqWRPGktua3zdD6x0ppSGEuBpL7ksDVkgptxzsvxM66xuETz4jeQeR8AXetbLvvoLvZaXf/X164bUmwSa/pYLw8xlF3JLwu/tq9KlzKvjGv6pTjj86r4wfrmnklhM8ZOk2Zr9YR2eOjNekrbTB1CIn75mSW4Opm94zjy3npCkm31+VLE20dHMz/zimDDNNRmRM5/KS+BeG3H9pgG1oxgsUA0tJtsa4fJ0LJuQTjgiujF6nMfFjzQaTC500dhq4NPBk6fz6ZA917SEOG+Hk2jU1SZm+V6222jstW9elGJilC04rz2FyoYOP9oZx6oIb1nYZzcWVHsbluxjlVIZtMJCpYZsAvBO9/S3gRKAN2MIAGTYAKeVzwHN9+TciR03ty7ffL2NybfgDuqUqAiyf6WVv0EiRvVo+00tEmvx2jjfJAN0728uKzXvwB0xyHTY+iDYWTdch4M5ZXsbl63GVEbAmdFVDgAe3trBgupux+Q5q28Os2NzMshM8PSr4q+ajiv5CE3DbySVcuLKO359aGr/mYuLHAL88yUNbWPKLk0qobQvh1AUFDp33fIG0Cj5HFjrirsyY4SpySo4eIdiUnc2ZTyX3aFtS5eP4kgrVTHSQkKlhMwGHEGIC0Cql3CWEsAEqANXHVLhMmkZY8YKQhD9sbubHxxTxo9camT/NjUsXTCp0cMPaRna2GozL13n8rHLe9QVoNyS3rvPx7SmFzDs8jxvWNrL0xJK4TFf3mrZr1zTwty+WJ/WXSmx9szSqnffcuRWcOyYrGktIj2o+qugPJPDeHoP3W6zOFrGmo90b5+Y7dW6q6lrw3T+nlD0Bg+O8WWkXc2EjwnNfGk1tWxiXLsjVJGVO63rfF0p/bbcZqnh8sNC7H6yLfwOPA78F/ho9NgkrtqXoQwRgRiLcOcvL5EIHW5pD7GwN4Q+Y3Lq+iYAhuXBlXXxi7mw1uOC5GsuorW9iZ6vBkiof+0IRdrYa7NoXYvlML5otvdbk7g6DBdPd/PXMMp47tyKpn1vsOUbEZPR+pLRiOpeJdOnlKRQHh+qAxtbmEEbEMlgNbeGUNjO3nVwSV/gH6xq+YlU9jZ0RvvSvan5ynIdx+Xr8+YsrPZTl2jnrqV18a2UdF66sozXUNVfG5NrSXttjcjL9OlX0NZnu2L4NXIwVV3skeqwIuKkPxqTohlPXeGSrj+9PdbN8ppc/bWvmgVNLeX9PiDEj7Fw33c3DW1uS2tUkhqo6DYndZk2+I/Kt3d0t0Z1b93hcWY6d3R0GP399N3+aNwp/wIzH4oSw3D5l2fsXc1XNRxX9QWOHyYotLdx2cjFLTvCgazbu3WSp6YzKsfNha4hd+8LxRqNAfK7EFHl+8EoDj84rY6PP6gBw76ZmLp1c0KMbvUJd24OeTA3bNVLK2xMPSClfEUJc1wdjUnSjOWAyszyP77xUz+xRWSw4xo0v0NWbLbGXVE2bEU9FjpGlC6Z5srh/TmncZbngtcaUrLF7TvGyqamTIwqc/OS4IsyIwV/nlbK1xUiK500eaadsP/qQic1HE5XPVWqI4mDizdbwB0wKnYICpx2HzbofU+y/+uiRjHRqLHw9WR91xebm+BzpNCR7QxGWrWuiPFfn0kkFjM6zs3BGUdwIdhqSrS0GFV6hru0hQKZ758U9HP/5wRqIomdydFvcdfj54mwCpuAHryS7VpZW+bhoYgFZuuDuU7w8/n4L0FWHs6MlQHmuzteOLGDhjCKAeNbYH04rZcF0N/5Og+vX+rhwZS1mRODUdQ4foceNWuxvXfJSA9WB/bsUY+09jhvJfl2XCsWnodxl8sCppZjSxvnP1lHXFoq7ImvaDNoNyZWrU+fKbSeX8Mi2FsCaI95snbPGZPPzGR5u3+Dnuy/Vc8cGP1dOLaQ8VydLF2zxh+LXvbq2Bze97tiEEHOiN7Xu7WqAscC+vhqYootCp2BGSRZZuiDfIcix27huuhsgaUU5ye3g8bPK+eeOPXxn8kjG5DtoC0foCJvk2nXOTtMtePlGPwumu8m227hrUzPQ1bT0uXMrMMyDkwQiseIhjR1mj124FYoDRQAjHYL2cITJhQ40m43JhTYenFsGgMMm0l6/25tDce/G4koP2brgB9PcfPmZmhQjuGC6m8Py7fx2UzMzy5wq+WkIsD9X5B+jv13AioTjEmgArumLQSmScdkk+Q54cG4pe0OSC56rSTFQLg3cLp3X6zv41qRC3vMH4+3pY5O3e7fgBdPdjMq1M3aEzmUv1ackibQZEQ7L0T5z08R4TdtLdUkxCdWFW3EwKMrS+Wh3J7ecWMK7TZ1IqbMk2oswYETSXr9HFDj4w2mlNHcajC908J+6Tj5f7IrPkRidhmTMCDv+DoMzD8vrm2ahioNOr65IKeXhUsrDgT/Hbkd/xkopT5RSPt1P4zyk2bEvgq8zgj9gxhUSoGtF+YOpI7nhOA9feaba0sp7qpr2sMTt0uLPWxJ1VcboNCRT3E5uWedjbX1nXEIoRpYuyNEFNgH3z/EmZZkdaKDcqmlr+FTuTIVifxyZY5Bj1/jyM9U4NMGOljBLTyxhaZWPFVtauPn45CzJxZUeBBJNRBjh1Pnm87UsfMPHV5+t4aqo6zFGzE0ZljDN40i67iWWnNf6ZusaV3Lmg4eMYmxSyotit4UQtsSfvhuaIka2bqMkW8ep2dK6VT5fnMU13WJu6QxZLCusPFdn0YwidJvguumFPPfRPu45Jdl4LTuxmM3NIY59vJqFr/viJQBV51cc8E6rt5o2heKzUh3QuGp1A26XRp5D4/YNfjb7g3Qakpo2g7veaeb2LxTzxFnlPHh6GUJKFr6+mzyHnlIGsKTKx6WTCgDiwgdXrKrnlnVNtBuwqaXLiL1QH6HyiWrmPlXLjCeqeaE+oozbICFTrcjpWE09j8ZyS4Ll3pZYclaKPqTYJdgblpTl6GndKs2B9IYjMeU/Sxd8rsjJshM95Dls/GTt7rhbcMkJHjrCZlx+6HNFTuwCvvnvuviXQ6w4u+r8igN2H8Zq2j6LO1Oh6InYwumiiQVcnZAoYslsFeDSBeMLnHypm9zcpqZg2nlzbLGTJ84aRURCbXs4fvzyl+vj3eifPLucS16qw+3S4qUwW/aEmVKYrWS1BgGZ7rgeBlYDx2IljYwFDo/+VvQhEti+J4SvMwLIlOLT5TO9eLLSF0PbEm4vrvSw4NVGa+XZzU25+A0fZbl2HtnWwtKqJtpDkg2+9JP+0+yyYjVtn8WdqVD0REl04eRKWDyt/Hgf1x/rYflGP4vf8PFaXUfK9RyRpMybcfk69R0RLnqhjq89X8vC133xzMjEbvT/qe/E7dK4cmohyzf6WbauiV+/7eetprDatQ0CMjVsY4CFUsptUspPEn/6cnCKrvjUCIeNPcEI2XbB4soiHjm9jH+dU4EpTfaGTH4zK9lw3Hy8hzy74K9njmLBdHdcQaQnN+V/m0NcObWQcfk6H7aG0k76T6scklj38+J5oz6VO1OhSIcEmoKS5TO9HFngiF+zp4/JS4pHx67n8lydnx1XxMIZReTZBQ/NLd2vSkliKU2s9i0i4dJJqbJ0V6xSsePBQKYF2k8Cp2Mp6Sv6kZibxW6DAqfGbzf5uebzbrJ0jQ2+TkY4dL75b8slsmC6mwkjHXyyL8xd71iG7A+nlbI0QaUc0rspp3pcbPYHuHd2Kd9+qR4gpYD7s+yyYnU/Vqq02qkpDg7VAY3VtR08/9E+bjzew29mefnhmob4zirGw1stdZKOsEwSG7jrFC83VxbRGrZa1GxtDqX1VGg24hnIAI9tb2HJCSVxQfGYOxKgOaj0UAeaTA2bC3hSCLEWK80/TmJiieLgk+e04mobfQFsAn5yXBG1bREuebGG+dPc3PhmQ0ocbP40d7xGJ8du6dolxgI0Abnd3Jlb/AE6DIk/aOLSLM3JxLYfXxyTw5E5htplKQYVjR0mEQlbmkPk2jX2BoPcXFnEVE8WtsoiIrKr1rMjHGFJVVPSDismp3XhSiuevLiyKG08ePaobC5/uS4+r5ad4GHiSKtdzmVTkrtkHFlQSrFLp9SpajUHikwN29boj6KfCYQNlp1YTFmOzl+372FyYRHzX61L8vcnEjsei6s992ErfzitlF37jJSV6tPnjCIUIS6zFXvN8lklXPCcNYmXb/Tz0GleZdQUgxJvtsZj21tYVOlBYPI5t53adsl5zySLEazY3ExFrj3tfNnaHIq3ZCrOtlo9XbW6Swfyd3O8TMs3+cdZZUkSWmByz+zSlKLu762qZ8F0N1MK7crlPkBkZNiklDf39UAU6XG7NAwzRHEWnH9kAfUdRspqsvv9L5RlU1niwq5JPuceyXv+QNqV6pNnV/C156uTji+p8vHw6WUsmO5mstvBpAJd6eApBi3lLpNlJ3i4e1MzFbluxoywc/Wzyb3Sllb5eHBuGS5dpJ0v4wscvNcUZNm63XzjyALOPCyHJ84qpy0coaE9TEsoQl3QntaVrslIWmMZAdV/cADJuA5NCDFXCPFHIcS/ovePTZDcUvQR5S6TUXl2bEJnmz/EjpZQPNj98FZrpdo9S7KmLUQoIqlti9BuRAhH0u/smgJG+kkp4aSyLOZ5hdLBUwxqYolJt3/By+/e9VPflv6abuoMg5TcOzs5yerXJxfzSWsIzQa3nezl2GIH17/WwNlPV7PgtUZ2d0bwdZo0hUTabMee2jNJeWBZxKrY++CSkWETQlyD1YttBzAzergTuKWPxqWIIoBxI+zUdxhEgBVbuoxZTZvBis3NPDqvjCUneJg/zU2+U6AJG+82BbnpTR+XvFDHpEJn2snn0kTa4ztbQ3z5mRqV3aUYEghgX9Dgqs8XUZTG0Jxc6sSla3zj33UsfsMSG/jzGWX87axRHFPiot20FnM3rG3AH5R8vM+Md5hfvtHP0qomzvjnLp6pkzSEko1PulKWRZUeHtnWknEWsSr2PvgIKff/7xNCfACcKqX8WAixR0o5UgihAbullO4+H+WnoLW1tdcT27FjB+PHj++v4XwmJPDuPp2Xq9v59dt+3C6NX3+hhK3NQcwIPLKtJR7UXjDdHU8iSdSRXHCMJ57GHCvKHum0IYSIF7Va8YRS8hwCfyDC+AI7R+el37H1hajxUPpMekOdR/9THdB4uylMRZ7GB61d0nNZuuCpcypSirOzdMHT51Rw7r9SY3HfOLIAU8Lyjf6U1zw6r4wfrmnEHzDjeqexv7+1xWCLP8SDW1uSHt/fvNgV0Kh8InV86dyYQ+kz6Y2DeR75+fkp/+JMk0fygOro7dh/3w6EDsK4FBlQaA8zudDBkhM8LH7Dx49fa+SqqYVJCSGLKz3cm6DQv7TKx/xpbm5d30SeQ/DI6WXYhCDHLgiYEYpcOv/7tvWcHF0wrdjFztYQ31vVpUqSbnIqUWPFYKPcZVKXowMRKvI0njy7nPawBCR7elDmaew0UmJx86e5OarQSaeRPna2qSnIRRMLuHV9U1IMbbTLpMIrmFSQzcwy5wH1aOtNck6VDXw6MjVsrwI3AMsSjv0AS41E0cdUBzR27DVxaJLiLJ0F091EAA3J42eV0xoy0W2CBa82piiTxzIkPVk66xo7uf/dPfHnLKos4pwj8vF1GIwe4eCN+s5489LY69MFwK2i8br9Pk+h6C+qAxo7WwJk2zWWrfPFU/DdLo0Vc8vSJo24Xclff52GZGy+HU1AU6eR9jVmhHi9WqeR3Hz009ZqKsm5g0+mySPXAF8WQnwM5AkhtgPnA6qDdj8Q04LMsetcsaqepeuaeHhrCy0hybrGTkqydFw20ir027AKS7f5A/z8dV/cqGXpghxN8FFrmNEjHOQ5bNi19L2rugfAlaixYrDR2GFSmGXnytUNXDChSxHk6qNHsmNPgLu7iXzfM9vLhy2BpPfI0gUftoa59MU6suw2lpzgSYmdPf5+S1x9pHvz0U+Lkpw7+GSa7l8vhDgOmAGMxnJLrpNSRvpycAoLl13n/ZZ2ItFMq1hgO7EodMkJHm47uZgbEsSNl8/00hIw+MPmZm47uSS+KrSkg4oJGpLbNzTFjz06b1RGK0e1wlQMNkqyNRqiWb4xzcjyXJ0Cl6XgP7nQwYNzyzAl2DUYocP7rZGkORGLSXcakhvW7ubGGUU8cVY5VY2dmBFYsbmZb08p5N5NzXHZukhEsmOvieDTx5kTJecS6+SUW//Tk6krEmllmVRFfxT9yL6gwYotLTxwmqVrd9HEVI26xW/4+NO8Mv40r4xOU1K9L0zYNDnK7eDe2WXs7jR44cujeaO+g5agZF8owrJ1ybVtN6xtYPlMb1KSSbqVY2yFGeuxplaYioFGE1Cea2dcvs6MkiwWVRYxudDJz19vpNOQvLU7yNefr40nWFV6XYzN17nlBA/5To0PW8PcF9VTBWs+tJuSd5oCcffjJZNHMrHQzsWTLN1Ipy64YW2y5NynjTMrybmDS6Zta6YCy4HPA7mxw1j2ztE3Q1PE8GZr+AMm2Rrcc4qXj/eF07oC9wQjfNgaZpu/gwuOLMDXabKtOcySqq4kj9/O8fL0B83MqshLeY+drQYVuRrPnVtBmxFhTI4t7cpRrTAVg426dpN9puSG4zx8uZvqSHeDNTbfQXs4gtslaA5GKM+1p82A/LzHybWvNCa57588u5w7NviZP83NsnW7VZx5kJJpjO0vwH+watgmRn+Oiv5W9DHlLpP753iJSMH4AjtTeqhL+7A1zPKNfi6d4marP4Svw4xnTYI1+b6/qoGFlcXMGpXNuHw95T3cLo3P55uMybHR2GFS00OxaGyFedxIVBG3YsDxZmvk2vWUhrtLu3WyyNIFte1hLnmxnk7TxsNbW/jRa40phdvLZ3oRSKLdneI7ssqREarOr+CYYqeKMw9iMnVFeoHFMpOiN0WfMK7AQVOHQYcpaQ9HuH9OKTtbQlZ2pIDJhQ4k8ODpZQSNCLHgZ7rJt7aukzs2+LlzlpdfveWL60TeN9vShFSp/IqhRrnLZFtr+utdiy7fs3TB3ad48XcauF0a6xo7+fUXStjWHMSbbYsLfp9Yms13X6rDHzD5yxllOHUbQVMyNtcGmNGFnIozD2YOpNHoN/tyIIr0xGrGTvvHLqoagyx6fTdBU7K70+D2DV0NDjsMyc9f383Xn6vl470hjnY70UT6nmoxuZ9r1zSw9MQSFs4o4l/nVnBeuS3e/627i0WpkCgGM9UBjQ9bQ2mv98mFTv58RhmLK4u46U0fN1U1cdXUQnI0wa59IX79tp+atgiPv99Clm7jXV8nNW2W8WvoiPCVZ2o47181VCYogqhMxsFNpobtNmCpEGKLEGJV4k9fDk5BkqERAi6YUEBDu8niN5JdjLE05/JcHYlg4euNuLO0lI7bNx9vyf3EXrfZH+SODX40oCaqJKJcLIqhRmOHCRJ+OydV3mrBa41856V69oVkUrNdKWDiSBdul8a1axpYPqsUG5JsXfCz44q4fWZq09HYIk81zx3cZOqK/BvwEVbD0c6DOQAhxPnATVjxuhlSyrcSHvsp8G2svf0PpJQro8ePAR4CsoDngGuHq5s00dBk64KAKbHb0tebCQEXTSzgxjcto/frt/xcffRIHjy9DLsQvN8SjDcgha46t8WVHi58wXK9/PPscuViUQw5vNka7aYVE3virHLeaOhESpISR8bm21k4owiwBMS92Xaue7U+riTyZkOXi/7x95sRoqBXRRCVyTh4ydSwfR5wSyn7QkJrM/AV4HeJB4UQk4CvA5OBMuAlIcQEKaWJJch8OfAmlmE7A3i+D8Y24CTWjHmzbBxR4CAUESzq1kQx5mJM7NFW02Zww+s+AJ45t5yRTj1exB0rUvV3GNyVMPmvWl3P708t5bsv16tUfsWQodxlMq8ii11tETY1BbhjQ2qW4yd7wyyL6qgurvTQGjLY2WrE1XkSXfTzp7njr1OLvKFHpq7I14BJfTEAKeU2KeX2NA99CfirlDIopfwI2AnMEEKUAiOklG9Ed2mPAOf1xdgGAzFf/rh8nRyHxo5Wgy/9q5qlVU3cscHPlVMLGZev89s5Xl6t2Qekj6vlOTXKc208eXYFD80tZXFlER6Xjev/40uS4drZauDJUi4WxdBCAFLY0AQ8uGVPSjunxZUeHtzaAnT1HWwLyyR1nkQXvRDp20ItOcHDR3uNg6K8r1rV9B2Z7tg+Al4QQjwJNCY+IKVcfNBHZTEKa0cWoyZ6LBy93f14j+zYseOAjg82JtjtPDR3LCt3pWo5Lq3ysWJuGdX7Qiw7ycub9R0pRdb3zynl2y/UJnXJHjdCJ98u065IbTKC2fAR2dkePmoX7HNIsjt8GOFwn5/rUPlM9oc6j/5Ft9upcx3Gx3tDXDalkBWbm+NZjpUlWVyxqj5FRzVoSpbP9OLNtnF1t3o1KS2Px32bmq1u2G4nO1pD3LmxGX/A5KV5+Tha6z7TeDfbSrl8jT8+Tx+Y5WZKpH6/82yofCb747Ocx/46A2Rq2LKBZwEHUJFwPKNFhhDiJaySge4slFI+1dPL0hyTvRzvkXT/hKHW/uG1Jqsrbzqff6x9jT9g8sSOvbQETR6eV8YmX5ATvFl8si/IztauAtUlVVZPqrMPy2FxpSelQ0BFrs6m4GguWZmoLDKa0w/r253bUPtMekKdR/+zK6BRFIItzZL/++8eLphQgBBgRmCzP5BWR3VyoROQNHaYSS76WBkMWHMqz2HjR68lC4x32HOY/Bn+N7sCGpc/kdy9/vI1fqrOP4LDe3H7D6XPpDf6+jwy1Yq89LP8ESnlaZ/iZTUkG9FyoC56vDzN8WGLBByaiKfvd99hTS1ycsPaRjRRwBVHFzLCLrhuTSMuDaZ5nGTpGn89cxSf7A2xNyx5eGsLEaApYHJssZO7T/GSa7exa2+IIwt0QhHSpvwrVQXFYKWxw+TjNoPxBQ4WVnq4clXXouy2k4vj7Z4SvRh5doGBwJut8bezynmzsROnJgibJr+ZVYopJd4sjf+3sjbJqB2MOJtqVdO3ZCqp9Q+sWNazUsq+90dZPA38nxDiDqzkkfFYwsumEGKfEOJ4LN3Ki4C7+2lMA0J1QKOmLcixxQ7uPsUbV1eIKST8ZkMTl00p5L5NlpvkX+dWcFiexiWTC7lwZVeh9aJKD49t38NVUwsZYQeXbuOV2g4iEh7b3sJNxxczs1iwtil9L6pP2iNq0ikGHRJwOnR2d4Q41usgaESYP82NECAl/PotPwCPn1XORl+Ao4ucvN8c5P0WiSagKEsj36Hx4JaWJHfkc+dWMCHHYNkJnoOui6qExPuWTF2R/wEWA38UQjwOPCqlfP1gDEAI8WUsw+QBnhVCvCOlnCel3BL9W1sBA7gqmhEJ8H260v2fZ5hmRII1aT/cZzA6z4kEbltfxz/OLsfXaVKcpbPJ18nM8ryktOaatjC3nOjlzKd2pW2k+MfNzfy80sPZTydr6t305m6OPquMXEf6nWGubikvKBSDha6mt7vi1/Lfv1ieVvuxLRzBIWBbc4glVU1J7vdAOBxP+wdrvrQZkT7TRVVC4n1Lpq7I/wX+VwgxGfgW8BchRBhrF/dnKeUHn3YAUsonserj0j22jOTmprHjbwFTPu3fHErUBTUaOsLMf7Wau0/xsrPVYMPuAA9u2cMtJ5ZwU1VTygQudOq0Bi3lhEQXitul8bkiJ4fne/iwNRx/PNHoNXaajMrW0sbeitVuTTHISNf09gev1PPbOV6+v6oBt0vj0kkFHDnSwZ6AwZGFDr757+TnL4kmYLX6g/H3zdIFY3KshdynqVeT0bE1dph4s1Nb2igh8b4l47Y1AFLKLcBPhRDPAfcANwI/EkKsB34kpdzUB2M8pNkdIJ7hmGu3WQrjO/fyk+M8/Pz1xpQMyEWVHq57tZ5bTizhqqlW76iaNoPyXJ2rphZy2YvJrsnYTi+mqVeSpVHqNJlU0NWp2wZMKtApc6rVpGJwkS5WtbPVYHeHwY0ziuL92GLX/D2neFMWfJ2GRAD59oMjj9W1i+xdb1UVePcdGRs2IcSRWLu1bwIh4FHgbMAHXAn8Ezj84A/x0KYt3BXvuv3tJu6c5aV6X5hfrvdxwYQCRjhFUjwhZqiaOo149uPSdU1cOqkgRek/tku7db1VtHpSaVZ81TizWHD4iGy1mlQMatLFqsbl61TkWd20Ygs5sK75q19p4Bcnevjhq7vjz8/SBR/tDeF26aw8r5zSrPTtmjIl3S5SJV/1LxkVaAsh3sKKsxUC35RSTpRS3iqlrJZSBqSUd/TpKA9hxuTa4gWib+0O8s+drUz1uNjZanDr+ia2+EMs32iJId+6vimuQjJmhIPZo7I4PN/Og3PLGDPC3qMMV5YueODUUipHRuKTWbWlUQwFuosRj8vX+ekMD5e9WMdmfzDtNV+UrXNyqRPo0k+9d9Merl3TQGmW7TNf70pvdeDJdMd2G/B0b5JaUkq1W+sDKlwmv5vj5XvR9OVjSrJ5tykQX6U+vLUlrTty/pp67pldRkvQ5NIX67huurvHUoH509xU5IgeCwR7ixVk+hyFoi9IjFVtbzXxZOlJSVPprvntzSFuOdHLi9XtZOmCSERy8aQCAJqDnz3dXmU8DjwZ7diklH+LGTVhYYv99O3wFAI4tsjOU+dUsKiyiMPz7azY0sLNx1tSPzVtBntDBvOnuVk4o4j509zct6mZna0GLUETQ8q4AUwnM/Rhi7XjK3SmtqWJxQoqn6hm7lO1zEho23Egz1Eo+pKYd8GTpVPXYcQNysNbW7jnlFS1/we3trC70+Cx7S3YhODmdU0sW2dJ1O1qk9QFP5u8lWppM/BkWsdWBtyL1UG7oNvDqlFXH1PqNPEFbYzJs/Px3jAuDZy6iCd3jMlzcOObdakrxGydl6Kr0pg8UExmaFKhkx+/1silkwt6nHSZxApUPEExWNgXNvFm6/HdktVTzRafJ7EYtD9gUpKjc9cppfzPszVJ1+73VtWzuLKIsXn6p9ZIVRmPA0+mrsjfAR3AqcAaLAN3E5ayvqKPEUDIiHDUSDvluTYqvaV8NWFClufqKen5d5/iRRcRHttu7dRWbG7mggkFaDaYWuTitvU+/AGTL47J4cgcI+2ky0QdQSkoKAYLY3JsrG3oZFGlh6XRuXD7201cMrkwSdTgntleDNMkFEkvUefJ0j/z4kxlPA4smRq2E4HRUsp2IYSUUm4SQnwbeB34fd8NTwGWu0/XbDR1mjR0RPB3hpImZE2bwb2bmnny7AqaAgZFLh2nzeQdX5BvHFnApJF6iszQkhM8HONxsi9oUKOlj4tlEitQ8QTFYKHCZXJYvpMfrK5PyhR+9sNWnjy7An/AxKlBZ9hEYMOppRcBH+GwMX+amx17TQQqZjwUyTRGZmKpfwC0CCE8QDv7UdVXHByqAxpvNgZw6Rq3v+1jbIGDRZVFLJxRRHmutTbxB0xere3gW/+u44x/7qKxEzpNySS3kw9ajbhRA2tVuvgNH1WNgZS42H/bdV5utH5nEitQ8QTFYKIsS7C4sjieKbx8o5/jSnP5zkt1fOelOjbsDmJIG5ubA3zQEmT5TG9K3DlLh+Ub/fzPsypmPFTJdMdWBZyFpRCyEngMq5P2W729SHFwaOwwaQtLdrYGuGxKcpH18ple9oUMHLotromXpQuydMFd7+zhmqkj8WSnT/X3Ztspz9WpaTNY+IaPQKWHK1Z1SRPdN9vLeeW9xwpUPEExGIglMTUGwowdYefB08t4rykYbcPUlfWY7xDUtoc5fISd2jaDB97zxePOU4ucmBHJ/DWNKmY8xMl0x3Yh8Er09g+BVVidr7958Iek6E5JthYVa7XHYwdgTbr5rzawNySJRKznxozdj15t4NpphRw50sHHe0Npm49+2BriookFAFwwoYAruu3qrlzdwPZ2fb/1bKrmTTHQVAc0Fr7hI1vXqGoM8klrCI/Lxvh8B4cXOBhhFzy2vYWSbJ1/f7SXQpfOjW/64vWgS6uauHBlHSOcWrzFUwxVgzb06NWwCSGyhRC3YmlCXiuEcEopO6WUt0gpfyKlrO+fYR7axBTIw6ZMu/MaM8JOc9DkD6eVceOMIlqDVsv7xW/4yHfqPPfRvhSXSyztWUStkGZLH0ivbU+e5ArFYKSxw+SCCQXctt7HdI+Tomydn77u42vP13LJC3VEEFwzzc3SKh8LjvXQ0B5Of71HBQ4S6YoZK4YK+9ux3QOcA/wX+Cpwe5+PSJFCXbvJr97yM8JhSzvpPtkbZmlVE19+phoprO6/YE3UVTXt/M/4fIyIyYLpybVu/oCJlNZ7nFialfa9R+UckJyoQjEgeLM1CpyCy6YU8t89Ia5enex9WFLloyRb59dfKCFbt9EWNtNe775OI6Xe8/enlqqY8RBjf4btTOB0KeX10dtn9/2QFN3xZmv4Aya79ob43ZzSlGD3g1tbgK4JHNtjZekCMwJLqnzsC0uy7Dbu2ODn1vVN+AMmy2d6mex28Ny5FRw/MsJ9s5N3dffN9nJkjtqxKQY/5S6TY4qzWFrloyhLT7sb2+IP0tgR4cpVdeQ5NFbMLU0xYJMK7KzYbNV7Lqos4smzy/liWXpVHsXgZX/L8ZyYu1FKWS2EyO+HMSm6Ue4y+eu8Uuo7JWNHaDx5djn17SZZdsGCVxtTlMq7q/d3GpJx+U5CkQgPzyvjv80hAobklnU+Lp1cwOdG6gjgvHIbE78ymtp2g1E5eo/1bQrFYEMAEdOqqcyLdsHonsZvRqxOGfOnufn+qgaeObeCe2d7ybHb8LhsTMu3AtX/OKtMJUINcfa3Y9OFELOFEHOEEHO6348eU/QxAjh8hM7tb/vY3mpw9ep6GtvDjHRaO7lEsnTB56L6jzGl/yxdsNEX4Dsv1bOzJcwD7+2J79piiv6xv3NUjsGpxdZvNaEVQ4lYTeUne0MsOcGTElN+ZFtLXPi705C8UtvBZS/Wc8kLdfg6rMWhSoQaHuxvx7YbWJFw39/tvgTGHuxBKVKJBcdjsYMbXvelVRy5c5aXoCHjHYS779xirWqWb/Tz+26K/grFUCZWU3n3pmZ+clwRT51dwWv1HZgRkhZ5sbiyGc0kVin9w49eDZuU8rB+GodiP3iztbSZi0JKnjy7grZwBE1Ilq1roqHD5Mmzy2kLR9iwOxif1GC9/phiJ1XnVyg3i2JYIYCpbjvfmljIBc/V4XZpXDW1MGnhF5OXiy32YigZuOGFSnkbIpS7TE7wZsVjB+W5OldOLeTmhEm7uNLDhZMKuHujH03ApHyNC1f6U2IN40doQ2JlqtrhKA6U+s6ujvMxqbkF092MzbczKtdOp2Hyy5NL+Mna5Nh0li7Ic+h0CSwphjKq7cwQQQBjcwW/nWNlLl40sSCevbVwRhHXTXfzx83NNHWY/Hqml7d2B/hgX4R/nl3OuHxr/TKU5K5UOxzFgSIBfzBZlLumzWDpuiZ2tob50r+q2doc4oPWMD+Y5k6JwQUMI/4+uwIa65uthZW65oYeasc2xHBoVruaowodXDalMK5EEpucGpLWYIQlVU3x4w+cWkpFjqDQOXSyvFQ7HMWBUh3QqG0LpM2IlNK6htrCkjs2NPH0ORUsriyiNMdOTVuYFZubOXt0GRKTF+oj8Wsvthj8tC1sFAOD2rENIeo74dsv1rN0XRM2IVLktZZW+RgzwsEHLaGk45e/XE+EoWPUoPd2OApFOho7TCREhYxTMyITDZw/YHLvpj18f1U9QUOy7AQPFS4zuqBqSFlQVQeU8shQQhm2IUS7EYlPuB0tobRf/BFJvGA78fjq2g6eqZNDxq0SS91OREkbKXrDm62Ra9e4d1MzC2cU8eDcMhZM71LZSTRwCPjxsW7cLo0ZXld8R6YWVMMDZdiGCBKw20T8yz5oyvQSWLl62to2MwKXv1xP1R7bkDBuqh2O4kApd5lURK//n7/uY9EbuzElXDq5gAfnliUZuJ//p5GOsOQHU0cyJqfLzagWVMMDZdiGCNUBjatW18d17B7e2pLicnnoNC8lTplyfPlML/kOwXXT3bzbFEhxqwzGYHliO5wXzxtF1fkVKs6h6BUBlGeL+PVf02awfKOlsVqcpXHp5IK4cMHOVoMlVT6O9rhUf8FhiEoeGSI0dpjsbDW4b1MzfzmjDAHkOTSeOKscX6fBSJfGUSNsVLeZ3LupmRVzy/iwJcSRhQ5uWNvIzlYjbuSag131OrHsw8EYLI+pQFhjVV8siv1T5jQZO0JnwXQ3EayVuzdb55N9llB4Ip2GJByRqr/gMETt2IYIiS6STlOydU+YLz5dzdlPV3Pl6gZ2tIRoDMKoHEtm68evNfK5IhcXrqyL95eK9W9z6V3rGRUsVww3XBpMdjs5fISdKW4nATNCY0f6djRjclK/ApWs1tBH7diGCDEXyYf7DKr3hukIS66b7gaw3JJv+Hj8rHIa2gz+Oq+Ur6+sZ9ueQNpAeFPAROaw32C5UmFQDDXqghpb9wSS1EZ+eXIxR410cN/sUj7aG2LFlhb8AVO5GIcxyrANIfIdgvH5dvxByY1VDSlakM0BkytWWbVeVedX4A+RtqanqiFAe8jO6aW2+E6w+3OsYLma9Iqhxe4AcaMG4HZptIcl3/h3l6v9/jleji2yU+ZUu7HhyoC7IoUQvxZC/FcI8a4Q4kkhREHCYz8VQuwUQmwXQsxLOH6MEOK96GN3CSGG/fVZHdD4T0MIA8EP1zSk1K9dOqmALLtloLa2GFS4TD4/IjUQHuucHXM3qmC5YjjRFo4kLdKuOHpkkqHrNCRXrGrAlCijNowZDDu2F4GfSikNIcQvgZ8CPxFCTAK+DkwGyoCXhBATpJQm8FvgcuBN4DngDOD5ARl9P9HYYRIB3t+Tvn5tbL6Dj1pCZOmCLf4QkwqyGe0yOb3UxnPnVvBSTQdSkiSIHHM3qmC5YrgwJrerF1t5rk5Zjr1XV/v+9EiVXunQZMANm5TyhYS7bwJfjd7+EvBXKWUQ+EgIsROYIYT4GBghpXwDQAjxCHAew9ywebM1NAFGxHKnuF0aF00sQAjQBOwLG7SFZdwtObPMyWiXtSotcsIdG1LFkGPuRpV9qBguVEQ9EJe81MBFEwv4eG+oR1f7/uSzBnPGsKJ3hJSDoWrJQgjxL+AxKeWfhBD3AG9KKf8UfeyPWMbrY+A2KeVp0eNfAH4ipTw78b1aW1vjJ7Zjx45+OoO+Q7fb2ekooz5oQxfQGpJJAfJ7ZnvpCJn88m2rCPXlM0di31MTf+1mWymXr+nq0fbALDdTIvUY4fAAn5lCcXDR7Xb2FYzm/X1w05s+rpyarKn629klTDWq6cj2cNrK1hSj99K8fBytdYTyy3p9XDFwjB8/Pn47Pz8/ZZ3RLzs2IcRLgDfNQwullE9Fn7MQq2fEn2MvS/N82cvxHkn8J8TYsWNH2uODmcOwsr78IcG8f+5Kihtcvdpqee8PmCyu9JCf52JU0fik16a6Gw8bgLPomaH4maRDncfAI4FOacMfMLlvk9UFQwgrqeA4j4NRzsNY3wydRkvS6zoNSYc9h8njx+/38YFgKH8mifT1efSLYYvtrnpCCHExcDZwquzaQtYAFQlPKwfqosfL0xwf9ghglNOkrj214WinIZlQYGf+NDf3bmrmWE8Jo5zJr1XuRsWhggBmjIzw+1NL+e7L9dy6vinuSixzWtd/bxnBEpOIsKmM4SHKYMiKPAP4CXCulLIj4aGnga8LIZxCiMOB8cA6KWU9sE8IcXw0G/Ii4Kl+H/gA0pOeXaFL553dHVw6qYCAKQaNPJZCMRAI4ItlluswnSxb94zgcfk6T55dTmOHyfZ2naVVu+MSdmDNsd+fWqoyhocAA548AtwDOIEXo1n7b0opr5BSbhFCPA5sxXJRXhXNiAT4PvAQkIUVdxvWiSPdKXeZPHBqKZe/XJ9Uy3bdq/Usn1XKBc/VHHCwW2V/KYYL3a/l7A4fkw/LofsuK1E+qzloUtMu+fIzNUlz6h87WuNuTCmhPEeoeTEEGHDDJqUc18tjy4BlaY6/BUzpy3ENZgRQkS2SJlwsjX9dY+cBN+dU2V+K4UK6a/mBWaUcRvrgfMxFDxpnPl2dUh86f5qbW9dbGpNZuuDr4ypQbsjBz4AbNsWnw+3SWL4xNYXfjCQ/LxN5LNWtWjFcSHctX77GH7+WJbC9Xae2zWBUrs6ROUav0nJaNFijhAuGFsqwDVHKXWY8MB5bmS6f6eX2t31Jz8sk2K30IhXDhd6u5QoX/LMmwpWrd8XnzH2zvZxX3rO03BfH5DCz1KmEC4YYA548ovh0xALjz5xbwR9OK+XBuWWs/LiVhTNSe7Rpgl57ranmiorhQm/X8vZ2nStXJ8vRXbm6ge3teo/SckfmGErlfwiidmxDlLSxhFNLmTBC8OKXR7O7w2BUjk5De5hjH6/uNXaWbven3C6KoUh5gvJIohhBhctkVWP6MpnadoOjcpS03HBCGbYhSiyWMLnQwY+OKaI9HMGhCdbtDnP9f+pYVOlhZ0uIG6uaeo2dxQzkTW9agXLNBieVZlE5MqImtWLIka5RqNnwAYLDGJWrp3U3jsrRAUPVeg4jlGEbojR2mEwudHD55wq57MWuXdvdp3iZXOhgaZWPFXPL9hs7Swy2J2Z/qcQRxVClu4HaEZWNOzLH4L7Z3rg7MhZjOzLHGMjhKvoAZdiGCN1rc0blwIJjirj0xeQMsGteaWDF3DK+8Xwt7eHIfpUTVOKI4lBBAOeV25j4ldHUtluu+lhWpGJ4oQzbEKCnOjOELa1Rihm0hg6DxZWeJLHk7rEz1WhUcSghgKNyrJiapfugGI6orMghgOUubEiJlZVHYwaJZOmCXLuNRZUeHtqyh0kFOlXnV6SVFIJUWSGVOKJQKIY6asc2BOjJXSikwb2neLnqla6YwT2zvRxVoOPNgrNHl0Uzu3oOiKcLtqtsMIVCMZRRhm0I0JO7MM+ucayoZfVXxnSLGRiQQWZXctwOjh0JQrkfFQrFEEe5IocAvbkLg50dHJVjcGqxFTvIdKcVi9tVPlHN3KdqmfFENS/UR1Q3AIVCMeRRO7YhQE/uwuqARl3WKFyBA1fjV/qQCoViuKIM2xAhsTZHYnbLkmw5YDV+leavUCiGK8oVOQTpKUsypgW5K6D1qg0JSh9SoVAMX5RhG4L0ttvKNG6m0vwVCsVwRbkihyA9Zkk6dM59ZldGcTOV5q9QKIYrasc2BOlptxUIGz3u5NIRi9upthwKhWI4oXZsQ5DE3dZH/n0c7s6jwmVSE1DyWAqFQqF2bEOU2G6rrKM2vttScTOFQqFQO7ZhhYqbKRQKhTJsww7VLFGhUBzqKFekQqFQKIYVyrApFAqFYlihDJtCoVAohhXKsCkUCoViWCGkHJ6NSlpbW4fniSkUCoUiTn5+fkrit9qxKRQKhWJYoQybQqFQKIYVw9YVqVAoFIpDE7VjUygUCsWwYlgbNiFEoRDiRSHEjujvkWmec6QQ4p2En71CiB9GH7tJCFGb8NhZ/X4SZHYe0ed9LIR4LzrWtw709X1Nhp9HhRBitRBimxBiixDi2oTHBvTzEEKcIYTYLoTYKYS4Ic3jQghxV/Txd4UQ0zN9bX+Twbn8v+g5vCuEeF0IMTXhsbTX2UCQwXmcIoRoTbhmFmf62v4kg/P4ccI5bBZCmEKIwuhjg+nzWCGE2C2E2NzD4/0zR6SUw/YH+BVwQ/T2DcAv9/N8DWgAxkTv3wQsGCrnAXwMFH3W/8NAngdQCkyP3s4D3gcmDfTnEb02PgDGAg5gU2xcCc85C3geS9nseKAq09cOwnM5ERgZvX1m7Fx6u84G6XmcAjzzaV47mM6j2/PPAVYNts8jOpaZwHRgcw+P98scGdY7NuBLwMPR2w8D5+3n+acCH0gpP+nLQX0KDvQ8DvbrDxb7HYeUsl5KuSF6ex+wDRjVXwPshRnATinlh1LKEPBXrPNJ5EvAI9LiTaBACFGa4Wv7k/2OR0r5upRyT/Tum0B5P48xEz7L/3UwfSYHOpZvAH/pl5EdIFLKV4HmXp7SL3NkuBu2EillPVhfmEDxfp7/dVIvmKujW+YVA+XCI/PzkMALQoi3hRCXf4rX9zUHNA4hxGHANKAq4fBAfR6jgOqE+zWkGtyenpPJa/uTAx3Pt7FW2TF6us76m0zP4wQhxCYhxPNCiMkH+Nr+IOOxCCGygTOAvyccHiyfRyb0yxwZ8ur+QoiXAG+ahxYe4Ps4gHOBnyYc/i2wFOvCWQr8L3DZpxvpfv/+wTiPk6SUdUKIYuBFIcR/oyuofuMgfh65WJP3h1LKvdHD/fZ5pBtSmmPdU4p7ek4mr+1PMh6PEGI2lmE7OeHwgF9nseGlOdb9PDZghRbaojHZfwLjM3xtf3EgYzkH+I+UMnFXNFg+j0zolzky5A2blPK0nh4TQjQKIUqllPXR7e7uXt7qTGCDlLIx4b3jt4UQvweeORhjTsfBOA8pZV30924hxJNY2/tXgQP5P3wmDsZ5CCHsWEbtz1LKfyS8d799HmmoASoS7pcDdRk+x5HBa/uTTM4FIcTRwB+AM6WU/tjxXq6z/ma/55GwKEJK+ZwQ4j4hRFEmr+1HDmQsKV6lQfR5ZEK/zJHh7op8Grg4evti4Klenpvit45++cb4MpA206cf2O95CCFyhBB5sdvA6XSN90D+D31JJuchgD8C26SUd3R7bCA/j/XAeCHE4dHd/dexzieRp4GLoplfxwOtUZdrJq/tT/Y7HiHEaOAfwIVSyvcTjvd2nfU3mZyHN3pNIYSYgfWd58/ktf1IRmMRQuQDs0iYN4Ps88iE/pkjA51F05c/gBt4GdgR/V0YPV4GPJfwvGysiz2/2+sfBd4D3o3+k0sH63lgZRNtiv5sARbu7/WD9DxOxnJBvAu8E/05azB8HlgZXe9jZW8tjB67ArgielsA90Yffw84trfXDuRPBufyB2BPwmfw1v6us0F6HldHx7kJKwnmxMH4mezvPKL3LwH+2u11g+3z+AtQD4SxdmffHog5opRHFAqFQjGsGO6uSIVCoVAcYijDplAoFIphhTJsCoVCoRhWKMOmUCgUimGFMmwKhUKhGFYow6ZQDBBCiNFCiDYhhBa9/4oQ4jv9PIY2IcTYHh67RAix9iD9nY+FED0W7ysUBxNl2BSKbkS/hDujX/qxn3sO9t+RUu6SUuZKKc0MxnSTECIcHUuLsFrJnHAQxpArpfzws76PQjGYUIZNoUjPOdEv/djP1QM9IOAxKWUuUASsBp4Y4PEoFIMSZdgUigMg6p77jxBieXTn9KEQ4sTo8WphNVm8OOH5XxRCbBRWA9tqIcRNCY8dJoSQQogD0myVUhrAn4FRQghP9L3yhRB/FELUC6sZ6y0JLs5xQog1wmq42SSEeCxhDFIIMS562y2EeDo61nXAEb2NNdF1KoQ4QgixSgjhj/6NPwshCnr4H84QQrwV/TuNQog70j1Pofi0KMOmUBw4lViyXm7g/7B6Rx0HjAO+BdwjrO4EAO3ARUAB8EXg+0KI8z7LH49q6V2EJQMX65n2MGBExzANSzMwFq9bCrwAjMQSl727h7e+FwhgNXu9jAPrnCCAX2DJo03EErS9qYfn3gncKaUcgWU8Hz+Av6NQ7Bdl2BSK9PwzuiOL/Xw34bGPpJQPRmNjj2F9iS+RUgallC8AISwDg5TyFSnle1LKiJTyXSwtvVmfckwXCCFagE7gu8BXpZSGEKIEqzvFD6WU7VLK3cByLCFZsHT7xgBlUsqAlDIlISS6u/sfYHH0PTbT1RR2v0gpd0opX4z+D3zAHb2cZxgYJ4QoklK2SavhpEJx0FCGTaFIz3lSyoKEn98nPNaYcLsTklvqRI/lAgghKoUQq4UQPiFEK5YgbNGnHNPjUsoCoARLwf2Y6PExgB2ojxli4Hd0NXK9HmtHtU4IsUUIkW4n5sFqY5XY7DHjTvJCiGIhxF+jbtC9wJ/o+Ty/DUwA/iuEWC+EODvTv6NQZIIybApF3/J/WJ0IKqSU+cD9pG+qmDFSyibge8BNwmrlUw0EgaIEQzxCSjk5+vwGKeV3pZRl0dfdF4urJeDDcmUm9sQanXC7Pfo7O+FYYkPZX2B1ZTg66mL8Vk/nKaXcIaX8Bpbh/SXwt2jLFYXioKAMm0LRt+QBzVLKQLQf2DcPxptKKf8LrASul1Y/qxeA/xVCjBBC2KLJHLMAhBDnCyHKoy/dg2WAzG7vZ2L1X7tJCJEthJhEV+88ou7FWuBbQggtuus7IuEt8oA2oEUIMQr4cU9jF0J8SwjhkVJGgJbo4f2WPCgUmaIMm0KRnn91q2N78lO+z5XAEiHEPmAxBzdR4tfA5UKIYqxkEgewFct4/Q0rCQSsxJYqIUQb1u7xWinlR2ne72osF2oD8BDwYLfHv4tlsPzAZOD1hMduBqYDrcCzWEayJ84AtkTHcyfwdSllIIPzVSgyQvVjUygUCsWwQu3YFAqFQjGsUIZNoVAoFMMKZdgUCoVCMaxQhk2hUCgUwwpl2BQKhUIxrFCGTaFQKBTDCmXYFAqFQjGsUIZNoVAoFMMKZdgUCoVCMaz4/yJbcqAK3U4aAAAAAElFTkSuQmCC\n",
      "text/plain": [
       "<Figure size 432x288 with 1 Axes>"
      ]
     },
     "metadata": {
      "needs_background": "light"
     },
     "output_type": "display_data"
    }
   ],
   "source": [
    "sns.scatterplot(x=\"res_email\", y=\"res_payments\", data=residuals)\n",
    "plt.plot(np.linspace(-0.7, 1), model_treatment.params[0] + np.linspace(-1, 2) * model_treatment.params[1], c=\"C1\")\n",
    "plt.xlabel(\"Email Residuals\")\n",
    "plt.ylabel(\"Payments Residuals\");"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "As I've said, we did this for pedagogical reasons. In practice, you can simply add the controls to the regression model together with the treatment and the estimates will be exactly the same."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 8,
   "metadata": {
    "ExecuteTime": {
     "end_time": "2023-07-27T13:13:22.444799Z",
     "start_time": "2023-07-27T13:13:22.430622Z"
    }
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table class=\"simpletable\">\n",
       "<tr>\n",
       "        <td></td>          <th>coef</th>     <th>std err</th>      <th>t</th>      <th>P>|t|</th>  <th>[0.025</th>    <th>0.975]</th>  \n",
       "</tr>\n",
       "<tr>\n",
       "  <th>Intercept</th>    <td>  490.8653</td> <td>    9.715</td> <td>   50.527</td> <td> 0.000</td> <td>  471.820</td> <td>  509.911</td>\n",
       "</tr>\n",
       "<tr>\n",
       "  <th>email</th>        <td>    4.4304</td> <td>    2.130</td> <td>    2.080</td> <td> 0.038</td> <td>    0.255</td> <td>    8.606</td>\n",
       "</tr>\n",
       "<tr>\n",
       "  <th>credit_limit</th> <td>    0.1511</td> <td>    0.008</td> <td>   18.833</td> <td> 0.000</td> <td>    0.135</td> <td>    0.167</td>\n",
       "</tr>\n",
       "<tr>\n",
       "  <th>risk_score</th>   <td>   -8.0516</td> <td>   38.424</td> <td>   -0.210</td> <td> 0.834</td> <td>  -83.379</td> <td>   67.276</td>\n",
       "</tr>\n",
       "</table>"
      ],
      "text/plain": [
       "<class 'statsmodels.iolib.table.SimpleTable'>"
      ]
     },
     "execution_count": 8,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "model_2 = smf.ols('payments ~ email + credit_limit + risk_score', data=data).fit()\n",
    "model_2.summary().tables[1]"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "To wrap it up, anytime we have a control that is a good predictor of the outcome, even if it is not a confounder, adding it to our model is a good idea. It helps lowering the variance of our treatment effect estimates. Here is a picture of what this situation looks like with causal graphs."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 9,
   "metadata": {
    "ExecuteTime": {
     "end_time": "2023-07-27T13:13:22.657328Z",
     "start_time": "2023-07-27T13:13:22.446638Z"
    },
    "tags": [
     "hide-input"
    ]
   },
   "outputs": [
    {
     "data": {
      "image/svg+xml": [
       "<?xml version=\"1.0\" encoding=\"UTF-8\" standalone=\"no\"?>\n",
       "<!DOCTYPE svg PUBLIC \"-//W3C//DTD SVG 1.1//EN\"\n",
       " \"http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd\">\n",
       "<!-- Generated by graphviz version 2.50.0 (0)\n",
       " -->\n",
       "<!-- Pages: 1 -->\n",
       "<svg width=\"448pt\" height=\"116pt\"\n",
       " viewBox=\"0.00 0.00 447.80 116.00\" xmlns=\"http://www.w3.org/2000/svg\" xmlns:xlink=\"http://www.w3.org/1999/xlink\">\n",
       "<g id=\"graph0\" class=\"graph\" transform=\"scale(1 1) rotate(0) translate(4 112)\">\n",
       "<polygon fill=\"white\" stroke=\"transparent\" points=\"-4,4 -4,-112 443.8,-112 443.8,4 -4,4\"/>\n",
       "<!-- X -->\n",
       "<g id=\"node1\" class=\"node\">\n",
       "<title>X</title>\n",
       "<ellipse fill=\"none\" stroke=\"black\" cx=\"27\" cy=\"-90\" rx=\"27\" ry=\"18\"/>\n",
       "<text text-anchor=\"middle\" x=\"27\" y=\"-86.3\" font-family=\"Times,serif\" font-size=\"14.00\">X</text>\n",
       "</g>\n",
       "<!-- Y -->\n",
       "<g id=\"node2\" class=\"node\">\n",
       "<title>Y</title>\n",
       "<ellipse fill=\"none\" stroke=\"black\" cx=\"63\" cy=\"-18\" rx=\"27\" ry=\"18\"/>\n",
       "<text text-anchor=\"middle\" x=\"63\" y=\"-14.3\" font-family=\"Times,serif\" font-size=\"14.00\">Y</text>\n",
       "</g>\n",
       "<!-- X&#45;&gt;Y -->\n",
       "<g id=\"edge1\" class=\"edge\">\n",
       "<title>X&#45;&gt;Y</title>\n",
       "<path fill=\"none\" stroke=\"black\" d=\"M35.35,-72.76C39.71,-64.28 45.15,-53.71 50.04,-44.2\"/>\n",
       "<polygon fill=\"black\" stroke=\"black\" points=\"53.23,-45.64 54.7,-35.15 47.01,-42.44 53.23,-45.64\"/>\n",
       "</g>\n",
       "<!-- T -->\n",
       "<g id=\"node3\" class=\"node\">\n",
       "<title>T</title>\n",
       "<ellipse fill=\"none\" stroke=\"gold\" cx=\"99\" cy=\"-90\" rx=\"27\" ry=\"18\"/>\n",
       "<text text-anchor=\"middle\" x=\"99\" y=\"-86.3\" font-family=\"Times,serif\" font-size=\"14.00\">T</text>\n",
       "</g>\n",
       "<!-- T&#45;&gt;Y -->\n",
       "<g id=\"edge2\" class=\"edge\">\n",
       "<title>T&#45;&gt;Y</title>\n",
       "<path fill=\"none\" stroke=\"black\" d=\"M90.65,-72.76C86.29,-64.28 80.85,-53.71 75.96,-44.2\"/>\n",
       "<polygon fill=\"black\" stroke=\"black\" points=\"78.99,-42.44 71.3,-35.15 72.77,-45.64 78.99,-42.44\"/>\n",
       "</g>\n",
       "<!-- email -->\n",
       "<g id=\"node4\" class=\"node\">\n",
       "<title>email</title>\n",
       "<ellipse fill=\"none\" stroke=\"gold\" cx=\"175\" cy=\"-90\" rx=\"30.59\" ry=\"18\"/>\n",
       "<text text-anchor=\"middle\" x=\"175\" y=\"-86.3\" font-family=\"Times,serif\" font-size=\"14.00\">email</text>\n",
       "</g>\n",
       "<!-- payments -->\n",
       "<g id=\"node6\" class=\"node\">\n",
       "<title>payments</title>\n",
       "<ellipse fill=\"none\" stroke=\"black\" cx=\"276\" cy=\"-18\" rx=\"44.69\" ry=\"18\"/>\n",
       "<text text-anchor=\"middle\" x=\"276\" y=\"-14.3\" font-family=\"Times,serif\" font-size=\"14.00\">payments</text>\n",
       "</g>\n",
       "<!-- email&#45;&gt;payments -->\n",
       "<g id=\"edge5\" class=\"edge\">\n",
       "<title>email&#45;&gt;payments</title>\n",
       "<path fill=\"none\" stroke=\"black\" d=\"M194,-75.83C208.6,-65.72 229.04,-51.55 245.87,-39.89\"/>\n",
       "<polygon fill=\"black\" stroke=\"black\" points=\"248.06,-42.62 254.28,-34.05 244.07,-36.87 248.06,-42.62\"/>\n",
       "</g>\n",
       "<!-- credit_limit -->\n",
       "<g id=\"node5\" class=\"node\">\n",
       "<title>credit_limit</title>\n",
       "<ellipse fill=\"none\" stroke=\"black\" cx=\"276\" cy=\"-90\" rx=\"51.99\" ry=\"18\"/>\n",
       "<text text-anchor=\"middle\" x=\"276\" y=\"-86.3\" font-family=\"Times,serif\" font-size=\"14.00\">credit_limit</text>\n",
       "</g>\n",
       "<!-- credit_limit&#45;&gt;payments -->\n",
       "<g id=\"edge3\" class=\"edge\">\n",
       "<title>credit_limit&#45;&gt;payments</title>\n",
       "<path fill=\"none\" stroke=\"black\" d=\"M276,-71.7C276,-63.98 276,-54.71 276,-46.11\"/>\n",
       "<polygon fill=\"black\" stroke=\"black\" points=\"279.5,-46.1 276,-36.1 272.5,-46.1 279.5,-46.1\"/>\n",
       "</g>\n",
       "<!-- risk_score -->\n",
       "<g id=\"node7\" class=\"node\">\n",
       "<title>risk_score</title>\n",
       "<ellipse fill=\"none\" stroke=\"black\" cx=\"393\" cy=\"-90\" rx=\"46.59\" ry=\"18\"/>\n",
       "<text text-anchor=\"middle\" x=\"393\" y=\"-86.3\" font-family=\"Times,serif\" font-size=\"14.00\">risk_score</text>\n",
       "</g>\n",
       "<!-- risk_score&#45;&gt;payments -->\n",
       "<g id=\"edge4\" class=\"edge\">\n",
       "<title>risk_score&#45;&gt;payments</title>\n",
       "<path fill=\"none\" stroke=\"black\" d=\"M368.76,-74.5C351.42,-64.12 327.89,-50.05 308.87,-38.66\"/>\n",
       "<polygon fill=\"black\" stroke=\"black\" points=\"310.59,-35.62 300.21,-33.49 307,-41.62 310.59,-35.62\"/>\n",
       "</g>\n",
       "</g>\n",
       "</svg>\n"
      ],
      "text/plain": [
       "<graphviz.graphs.Digraph at 0x7faac0101d50>"
      ]
     },
     "execution_count": 9,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "g = gr.Digraph()\n",
    "g.edge(\"X\", \"Y\"), g.edge(\"T\", \"Y\")\n",
    "g.node(\"T\", color=\"gold\")\n",
    "\n",
    "g.node(\"email\", color=\"gold\")\n",
    "g.edge(\"credit_limit\", \"payments\")\n",
    "g.edge(\"risk_score\", \"payments\")\n",
    "g.edge(\"email\", \"payments\")\n",
    "\n",
    "g"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "## Mostly Harmful Controls\n",
    "\n",
    "As a second motivating example, let's consider a drug test scenario with 2 hospitals. Both of them are conducting randomised trials on a new drug to treat a certain illness. The outcome of interest is days hospitalised. If the treatment is effective, it will lower the amount of days the patient stays in the hospital. For one of the hospitals, the policy regarding the random treatment is to give it to 90% of its patients while 10% get a placebo. The other hospital has a different policy: it gives the drug to a random 10% of its patients and 90% get a placebo. You are also told that the hospital that gives 90% of the true drug and 10% of placebo usually gets more severe cases of the illness to treat. "
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 10,
   "metadata": {
    "ExecuteTime": {
     "end_time": "2023-07-27T13:13:22.667113Z",
     "start_time": "2023-07-27T13:13:22.659159Z"
    }
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<div>\n",
       "<style scoped>\n",
       "    .dataframe tbody tr th:only-of-type {\n",
       "        vertical-align: middle;\n",
       "    }\n",
       "\n",
       "    .dataframe tbody tr th {\n",
       "        vertical-align: top;\n",
       "    }\n",
       "\n",
       "    .dataframe thead th {\n",
       "        text-align: right;\n",
       "    }\n",
       "</style>\n",
       "<table border=\"1\" class=\"dataframe\">\n",
       "  <thead>\n",
       "    <tr style=\"text-align: right;\">\n",
       "      <th></th>\n",
       "      <th>hospital</th>\n",
       "      <th>treatment</th>\n",
       "      <th>severity</th>\n",
       "      <th>days</th>\n",
       "    </tr>\n",
       "  </thead>\n",
       "  <tbody>\n",
       "    <tr>\n",
       "      <th>0</th>\n",
       "      <td>1</td>\n",
       "      <td>1</td>\n",
       "      <td>29.686618</td>\n",
       "      <td>82</td>\n",
       "    </tr>\n",
       "    <tr>\n",
       "      <th>1</th>\n",
       "      <td>1</td>\n",
       "      <td>1</td>\n",
       "      <td>20.050340</td>\n",
       "      <td>57</td>\n",
       "    </tr>\n",
       "    <tr>\n",
       "      <th>2</th>\n",
       "      <td>1</td>\n",
       "      <td>1</td>\n",
       "      <td>20.302399</td>\n",
       "      <td>49</td>\n",
       "    </tr>\n",
       "    <tr>\n",
       "      <th>3</th>\n",
       "      <td>0</td>\n",
       "      <td>0</td>\n",
       "      <td>10.603118</td>\n",
       "      <td>44</td>\n",
       "    </tr>\n",
       "    <tr>\n",
       "      <th>4</th>\n",
       "      <td>0</td>\n",
       "      <td>0</td>\n",
       "      <td>8.332793</td>\n",
       "      <td>15</td>\n",
       "    </tr>\n",
       "  </tbody>\n",
       "</table>\n",
       "</div>"
      ],
      "text/plain": [
       "   hospital  treatment   severity  days\n",
       "0         1          1  29.686618    82\n",
       "1         1          1  20.050340    57\n",
       "2         1          1  20.302399    49\n",
       "3         0          0  10.603118    44\n",
       "4         0          0   8.332793    15"
      ]
     },
     "execution_count": 10,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "hospital = pd.read_csv(\"./data/hospital_treatment.csv\")\n",
    "hospital.head()"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "Since you are dealing with randomized data, your first instinct is to simply run a regression of the outcome on the treatment."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 11,
   "metadata": {
    "ExecuteTime": {
     "end_time": "2023-07-27T13:13:22.677578Z",
     "start_time": "2023-07-27T13:13:22.668270Z"
    }
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table class=\"simpletable\">\n",
       "<tr>\n",
       "      <td></td>         <th>coef</th>     <th>std err</th>      <th>t</th>      <th>P>|t|</th>  <th>[0.025</th>    <th>0.975]</th>  \n",
       "</tr>\n",
       "<tr>\n",
       "  <th>Intercept</th> <td>   33.2667</td> <td>    2.662</td> <td>   12.498</td> <td> 0.000</td> <td>   27.968</td> <td>   38.566</td>\n",
       "</tr>\n",
       "<tr>\n",
       "  <th>treatment</th> <td>   14.1533</td> <td>    3.367</td> <td>    4.204</td> <td> 0.000</td> <td>    7.451</td> <td>   20.856</td>\n",
       "</tr>\n",
       "</table>"
      ],
      "text/plain": [
       "<class 'statsmodels.iolib.table.SimpleTable'>"
      ]
     },
     "execution_count": 11,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "hosp_1 = smf.ols('days ~ treatment', data=hospital).fit()\n",
    "hosp_1.summary().tables[1]"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "But you find some counterintuitive results. How can the treatment be increasing the number of days in the hospital? The answer lies in the fact that we are running 2 different experiments. Severity is positively linked with more days at the hospital and since the hospital with more severe cases also gives more of the drug, the drug becomes positively correlated with more days at the hospital. When we look at both hospitals together, we have that $E[Y_0|T=0]<E[Y_0|T=1]$, that is, the potential outcome of the untreated is, on average, lower than that of the treated because there are more untreated in the hospital with less severe cases. In other words, severity acts as a confounder, determining the hospital the patient goes and, hence, the probability of receiving the drug. \n",
    "\n",
    "There are 2 ways of fixing that. The first one, which defeats the purpose of using data from both hospitals, is to simply look at the ATE in each hospital individually."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 12,
   "metadata": {
    "ExecuteTime": {
     "end_time": "2023-07-27T13:13:22.688466Z",
     "start_time": "2023-07-27T13:13:22.679067Z"
    }
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table class=\"simpletable\">\n",
       "<tr>\n",
       "      <td></td>         <th>coef</th>     <th>std err</th>      <th>t</th>      <th>P>|t|</th>  <th>[0.025</th>    <th>0.975]</th>  \n",
       "</tr>\n",
       "<tr>\n",
       "  <th>Intercept</th> <td>   30.4074</td> <td>    2.868</td> <td>   10.602</td> <td> 0.000</td> <td>   24.523</td> <td>   36.292</td>\n",
       "</tr>\n",
       "<tr>\n",
       "  <th>treatment</th> <td>  -11.4074</td> <td>   10.921</td> <td>   -1.045</td> <td> 0.306</td> <td>  -33.816</td> <td>   11.001</td>\n",
       "</tr>\n",
       "</table>"
      ],
      "text/plain": [
       "<class 'statsmodels.iolib.table.SimpleTable'>"
      ]
     },
     "execution_count": 12,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "hosp_2 = smf.ols('days ~ treatment', data=hospital.query(\"hospital==0\")).fit()\n",
    "hosp_2.summary().tables[1]"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 13,
   "metadata": {
    "ExecuteTime": {
     "end_time": "2023-07-27T13:13:22.698314Z",
     "start_time": "2023-07-27T13:13:22.689639Z"
    }
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table class=\"simpletable\">\n",
       "<tr>\n",
       "      <td></td>         <th>coef</th>     <th>std err</th>      <th>t</th>      <th>P>|t|</th>  <th>[0.025</th>    <th>0.975]</th>  \n",
       "</tr>\n",
       "<tr>\n",
       "  <th>Intercept</th> <td>   59.0000</td> <td>    6.747</td> <td>    8.745</td> <td> 0.000</td> <td>   45.442</td> <td>   72.558</td>\n",
       "</tr>\n",
       "<tr>\n",
       "  <th>treatment</th> <td>  -10.3958</td> <td>    6.955</td> <td>   -1.495</td> <td> 0.141</td> <td>  -24.371</td> <td>    3.580</td>\n",
       "</tr>\n",
       "</table>"
      ],
      "text/plain": [
       "<class 'statsmodels.iolib.table.SimpleTable'>"
      ]
     },
     "execution_count": 13,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "hosp_3 = smf.ols('days ~ treatment', data=hospital.query(\"hospital==1\")).fit()\n",
    "hosp_3.summary().tables[1]"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "In this case, we did get an intuitive result of the ATE. It looks like now the drug is in fact lowering the amount of days at the hospital. However, since we are looking at each hospital individually, there are not enough data points. As a consequence, we are unable to find statistically significant results.\n",
    "\n",
    "The other approach, which leverages the power of regression, is to control for severity by including it in the model."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 14,
   "metadata": {
    "ExecuteTime": {
     "end_time": "2023-07-27T13:13:22.715044Z",
     "start_time": "2023-07-27T13:13:22.699818Z"
    }
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table class=\"simpletable\">\n",
       "<tr>\n",
       "      <td></td>         <th>coef</th>     <th>std err</th>      <th>t</th>      <th>P>|t|</th>  <th>[0.025</th>    <th>0.975]</th>  \n",
       "</tr>\n",
       "<tr>\n",
       "  <th>Intercept</th> <td>   11.6641</td> <td>    2.000</td> <td>    5.832</td> <td> 0.000</td> <td>    7.681</td> <td>   15.647</td>\n",
       "</tr>\n",
       "<tr>\n",
       "  <th>treatment</th> <td>   -7.5912</td> <td>    2.269</td> <td>   -3.345</td> <td> 0.001</td> <td>  -12.110</td> <td>   -3.073</td>\n",
       "</tr>\n",
       "<tr>\n",
       "  <th>severity</th>  <td>    2.2741</td> <td>    0.154</td> <td>   14.793</td> <td> 0.000</td> <td>    1.968</td> <td>    2.580</td>\n",
       "</tr>\n",
       "</table>"
      ],
      "text/plain": [
       "<class 'statsmodels.iolib.table.SimpleTable'>"
      ]
     },
     "execution_count": 14,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "hosp_4 = smf.ols('days ~ treatment + severity', data=hospital).fit()\n",
    "hosp_4.summary().tables[1]"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "The question that arises next is, should we also include hospital in the model? After all, we know that hospitals cause the treatment right? Well, that is true, but once we've controlled for severity, hospital is no longer correlated with the outcome number of days hospitalised. And we know that to be a confounder a variable has to cause both the treatment and the outcome. In this case, we have a variable that only causes the treatment.\n",
    "\n",
    "But maybe controlling for it lowers the variance, right? Well, not true again. In order for a control to lower the variance, it has to be a good predictor of the outcome, not of the treatment, which is the case here.\n",
    "\n",
    "Still, we might want to control it right? It can't hurt... Or can it?"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 15,
   "metadata": {
    "ExecuteTime": {
     "end_time": "2023-07-27T13:13:22.727104Z",
     "start_time": "2023-07-27T13:13:22.716967Z"
    }
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table class=\"simpletable\">\n",
       "<tr>\n",
       "      <td></td>         <th>coef</th>     <th>std err</th>      <th>t</th>      <th>P>|t|</th>  <th>[0.025</th>    <th>0.975]</th>  \n",
       "</tr>\n",
       "<tr>\n",
       "  <th>Intercept</th> <td>   11.0111</td> <td>    2.118</td> <td>    5.198</td> <td> 0.000</td> <td>    6.792</td> <td>   15.230</td>\n",
       "</tr>\n",
       "<tr>\n",
       "  <th>treatment</th> <td>   -5.0945</td> <td>    3.492</td> <td>   -1.459</td> <td> 0.149</td> <td>  -12.049</td> <td>    1.861</td>\n",
       "</tr>\n",
       "<tr>\n",
       "  <th>severity</th>  <td>    2.3865</td> <td>    0.195</td> <td>   12.251</td> <td> 0.000</td> <td>    1.999</td> <td>    2.774</td>\n",
       "</tr>\n",
       "<tr>\n",
       "  <th>hospital</th>  <td>   -4.1535</td> <td>    4.413</td> <td>   -0.941</td> <td> 0.350</td> <td>  -12.943</td> <td>    4.636</td>\n",
       "</tr>\n",
       "</table>"
      ],
      "text/plain": [
       "<class 'statsmodels.iolib.table.SimpleTable'>"
      ]
     },
     "execution_count": 15,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "hosp_5 = smf.ols('days ~ treatment + severity + hospital', data=hospital).fit()\n",
    "hosp_5.summary().tables[1]"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "Surprisingly, it can hurt! \n",
    "\n",
    "![img](./data/img/beyond-conf/shocked.png)\n",
    "\n",
    "Adding hospital on top of severity as a control introduced MORE variance to our ATE estimator. How can that be? The answer lies in the formula for the standard error of the regression coefficient.\n",
    "\n",
    "$\n",
    "\\hat{\\sigma}^2 = \\dfrac{1}{n-2} \\sum( y_i - \\hat{y}_i )^2\n",
    "$\n",
    "\n",
    "$\n",
    "\\text{Var}(\\hat{\\beta}_2) = \\dfrac{\\sigma^2}{\\sum(x_i - \\bar{x})^2}\n",
    "$\n",
    "\n",
    "From this formula, we can see that the standard error is inversely proportional to the variance of the variable $X$. This means that, if $X$ doesn't change much, it will be hard to estimate its effect on the outcome. This also makes intuitive sense. Take it to the extreme and pretend you want to estimate the effect of a drug, so you conduct a test with 10000 individuals but only 1 of them get the treatment. This will make finding the ATE very hard, we will have to rely on comparing a single individual with everyone else. Another way to say this is that we need lots of variability in the treatment to make it easier to find its impact. \n",
    "\n",
    "As to why including hospitals in the model increases the error of our estimate, it is because it is a good predictor of the treatment and not of the outcome (once we control for severity). So, by predicting the treatment, it effectively makes it so that it's variance is lower! Once again, we can resort to partitioning our regression above into it's 2 steps to see this."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 16,
   "metadata": {
    "ExecuteTime": {
     "end_time": "2023-07-27T13:13:22.743411Z",
     "start_time": "2023-07-27T13:13:22.728470Z"
    }
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table class=\"simpletable\">\n",
       "<tr>\n",
       "        <td></td>           <th>coef</th>     <th>std err</th>      <th>t</th>      <th>P>|t|</th>  <th>[0.025</th>    <th>0.975]</th>  \n",
       "</tr>\n",
       "<tr>\n",
       "  <th>Intercept</th>     <td> 2.817e-14</td> <td>    0.827</td> <td> 3.41e-14</td> <td> 1.000</td> <td>   -1.646</td> <td>    1.646</td>\n",
       "</tr>\n",
       "<tr>\n",
       "  <th>res_treatment</th> <td>   -5.0945</td> <td>    3.447</td> <td>   -1.478</td> <td> 0.143</td> <td>  -11.957</td> <td>    1.768</td>\n",
       "</tr>\n",
       "</table>"
      ],
      "text/plain": [
       "<class 'statsmodels.iolib.table.SimpleTable'>"
      ]
     },
     "execution_count": 16,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "model_treatment = smf.ols('treatment ~ severity + hospital', data=hospital).fit()\n",
    "model_days = smf.ols('days ~ severity + hospital', data=hospital).fit()\n",
    "\n",
    "residuals = pd.DataFrame(dict(res_days=model_days.resid, res_treatment=model_treatment.resid))\n",
    "\n",
    "model_treatment = smf.ols('res_days ~ res_treatment', data=residuals).fit()\n",
    "\n",
    "model_treatment.summary().tables[1]"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 17,
   "metadata": {
    "ExecuteTime": {
     "end_time": "2023-07-27T13:13:22.747606Z",
     "start_time": "2023-07-27T13:13:22.744581Z"
    }
   },
   "outputs": [
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "Treatment Variance 0.234375\n",
      "Treatment Residual Variance 0.05752909187211906\n"
     ]
    }
   ],
   "source": [
    "print(\"Treatment Variance\", np.var(hospital[\"treatment\"]))\n",
    "print(\"Treatment Residual Variance\", np.var(residuals[\"res_treatment\"]))"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "Also, don't take my word for it! You can check that the SE formula above is true:"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 18,
   "metadata": {
    "ExecuteTime": {
     "end_time": "2023-07-27T13:13:22.752776Z",
     "start_time": "2023-07-27T13:13:22.749169Z"
    }
   },
   "outputs": [
    {
     "name": "stdout",
     "output_type": "stream",
     "text": [
      "SE of the Coeficient: 3.446973767486901\n"
     ]
    }
   ],
   "source": [
    "sigma_hat = sum(model_treatment.resid**2)/(len(model_treatment.resid)-2)\n",
    "var = sigma_hat/sum((residuals[\"res_treatment\"] - residuals[\"res_treatment\"].mean())**2)\n",
    "print(\"SE of the Coeficient:\", np.sqrt(var))"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "So the bottom line is that we should add controls that are both correlated with the treatment and the outcome (confounder), like the severity in the model above. We should also add controls that are good predictors of the outcome, even if they are not confounders, because they lower the variance of our estimates. However, we should **NOT** add controls that are just good predictors of the treatment, because they will increase the variance of our estimates.\n",
    "\n",
    "Here is a picture of what this situation looks like with causal graphs."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 19,
   "metadata": {
    "ExecuteTime": {
     "end_time": "2023-07-27T13:13:22.938035Z",
     "start_time": "2023-07-27T13:13:22.754106Z"
    },
    "tags": [
     "hide-input"
    ]
   },
   "outputs": [
    {
     "data": {
      "image/svg+xml": [
       "<?xml version=\"1.0\" encoding=\"UTF-8\" standalone=\"no\"?>\n",
       "<!DOCTYPE svg PUBLIC \"-//W3C//DTD SVG 1.1//EN\"\n",
       " \"http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd\">\n",
       "<!-- Generated by graphviz version 2.50.0 (0)\n",
       " -->\n",
       "<!-- Pages: 1 -->\n",
       "<svg width=\"199pt\" height=\"260pt\"\n",
       " viewBox=\"0.00 0.00 199.35 260.00\" xmlns=\"http://www.w3.org/2000/svg\" xmlns:xlink=\"http://www.w3.org/1999/xlink\">\n",
       "<g id=\"graph0\" class=\"graph\" transform=\"scale(1 1) rotate(0) translate(4 256)\">\n",
       "<polygon fill=\"white\" stroke=\"transparent\" points=\"-4,4 -4,-256 195.35,-256 195.35,4 -4,4\"/>\n",
       "<!-- X -->\n",
       "<g id=\"node1\" class=\"node\">\n",
       "<title>X</title>\n",
       "<ellipse fill=\"none\" stroke=\"black\" cx=\"27\" cy=\"-234\" rx=\"27\" ry=\"18\"/>\n",
       "<text text-anchor=\"middle\" x=\"27\" y=\"-230.3\" font-family=\"Times,serif\" font-size=\"14.00\">X</text>\n",
       "</g>\n",
       "<!-- T -->\n",
       "<g id=\"node2\" class=\"node\">\n",
       "<title>T</title>\n",
       "<ellipse fill=\"none\" stroke=\"gold\" cx=\"27\" cy=\"-162\" rx=\"27\" ry=\"18\"/>\n",
       "<text text-anchor=\"middle\" x=\"27\" y=\"-158.3\" font-family=\"Times,serif\" font-size=\"14.00\">T</text>\n",
       "</g>\n",
       "<!-- X&#45;&gt;T -->\n",
       "<g id=\"edge1\" class=\"edge\">\n",
       "<title>X&#45;&gt;T</title>\n",
       "<path fill=\"none\" stroke=\"black\" d=\"M27,-215.7C27,-207.98 27,-198.71 27,-190.11\"/>\n",
       "<polygon fill=\"black\" stroke=\"black\" points=\"30.5,-190.1 27,-180.1 23.5,-190.1 30.5,-190.1\"/>\n",
       "</g>\n",
       "<!-- Y -->\n",
       "<g id=\"node3\" class=\"node\">\n",
       "<title>Y</title>\n",
       "<ellipse fill=\"none\" stroke=\"black\" cx=\"27\" cy=\"-90\" rx=\"27\" ry=\"18\"/>\n",
       "<text text-anchor=\"middle\" x=\"27\" y=\"-86.3\" font-family=\"Times,serif\" font-size=\"14.00\">Y</text>\n",
       "</g>\n",
       "<!-- T&#45;&gt;Y -->\n",
       "<g id=\"edge2\" class=\"edge\">\n",
       "<title>T&#45;&gt;Y</title>\n",
       "<path fill=\"none\" stroke=\"black\" d=\"M27,-143.7C27,-135.98 27,-126.71 27,-118.11\"/>\n",
       "<polygon fill=\"black\" stroke=\"black\" points=\"30.5,-118.1 27,-108.1 23.5,-118.1 30.5,-118.1\"/>\n",
       "</g>\n",
       "<!-- treatment -->\n",
       "<g id=\"node4\" class=\"node\">\n",
       "<title>treatment</title>\n",
       "<ellipse fill=\"none\" stroke=\"gold\" cx=\"116\" cy=\"-90\" rx=\"44.39\" ry=\"18\"/>\n",
       "<text text-anchor=\"middle\" x=\"116\" y=\"-86.3\" font-family=\"Times,serif\" font-size=\"14.00\">treatment</text>\n",
       "</g>\n",
       "<!-- days -->\n",
       "<g id=\"node7\" class=\"node\">\n",
       "<title>days</title>\n",
       "<ellipse fill=\"none\" stroke=\"black\" cx=\"152\" cy=\"-18\" rx=\"27\" ry=\"18\"/>\n",
       "<text text-anchor=\"middle\" x=\"152\" y=\"-14.3\" font-family=\"Times,serif\" font-size=\"14.00\">days</text>\n",
       "</g>\n",
       "<!-- treatment&#45;&gt;days -->\n",
       "<g id=\"edge6\" class=\"edge\">\n",
       "<title>treatment&#45;&gt;days</title>\n",
       "<path fill=\"none\" stroke=\"black\" d=\"M124.71,-72.05C128.98,-63.77 134.2,-53.62 138.92,-44.42\"/>\n",
       "<polygon fill=\"black\" stroke=\"black\" points=\"142.15,-45.8 143.61,-35.31 135.93,-42.6 142.15,-45.8\"/>\n",
       "</g>\n",
       "<!-- severity -->\n",
       "<g id=\"node5\" class=\"node\">\n",
       "<title>severity</title>\n",
       "<ellipse fill=\"none\" stroke=\"black\" cx=\"153\" cy=\"-234\" rx=\"38.19\" ry=\"18\"/>\n",
       "<text text-anchor=\"middle\" x=\"153\" y=\"-230.3\" font-family=\"Times,serif\" font-size=\"14.00\">severity</text>\n",
       "</g>\n",
       "<!-- hospital -->\n",
       "<g id=\"node6\" class=\"node\">\n",
       "<title>hospital</title>\n",
       "<ellipse fill=\"none\" stroke=\"black\" cx=\"119\" cy=\"-162\" rx=\"38.19\" ry=\"18\"/>\n",
       "<text text-anchor=\"middle\" x=\"119\" y=\"-158.3\" font-family=\"Times,serif\" font-size=\"14.00\">hospital</text>\n",
       "</g>\n",
       "<!-- severity&#45;&gt;hospital -->\n",
       "<g id=\"edge3\" class=\"edge\">\n",
       "<title>severity&#45;&gt;hospital</title>\n",
       "<path fill=\"none\" stroke=\"black\" d=\"M144.77,-216.05C140.8,-207.89 135.96,-197.91 131.54,-188.82\"/>\n",
       "<polygon fill=\"black\" stroke=\"black\" points=\"134.67,-187.25 127.15,-179.79 128.38,-190.31 134.67,-187.25\"/>\n",
       "</g>\n",
       "<!-- severity&#45;&gt;days -->\n",
       "<g id=\"edge4\" class=\"edge\">\n",
       "<title>severity&#45;&gt;days</title>\n",
       "<path fill=\"none\" stroke=\"black\" d=\"M158.09,-215.98C160.94,-205.67 164.27,-192.19 166,-180 172.75,-132.46 176.42,-119.44 169,-72 167.62,-63.18 165.02,-53.82 162.26,-45.46\"/>\n",
       "<polygon fill=\"black\" stroke=\"black\" points=\"165.51,-44.13 158.89,-35.86 158.9,-46.45 165.51,-44.13\"/>\n",
       "</g>\n",
       "<!-- hospital&#45;&gt;treatment -->\n",
       "<g id=\"edge5\" class=\"edge\">\n",
       "<title>hospital&#45;&gt;treatment</title>\n",
       "<path fill=\"none\" stroke=\"black\" d=\"M118.26,-143.7C117.93,-135.98 117.53,-126.71 117.16,-118.11\"/>\n",
       "<polygon fill=\"black\" stroke=\"black\" points=\"120.66,-117.95 116.73,-108.1 113.66,-118.25 120.66,-117.95\"/>\n",
       "</g>\n",
       "</g>\n",
       "</svg>\n"
      ],
      "text/plain": [
       "<graphviz.graphs.Digraph at 0x7faaa00aaed0>"
      ]
     },
     "execution_count": 19,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "g = gr.Digraph()\n",
    "\n",
    "g.edge(\"X\", \"T\"), g.edge(\"T\", \"Y\")\n",
    "g.node(\"T\", color=\"gold\")\n",
    "\n",
    "g.node(\"treatment\", color=\"gold\")\n",
    "g.edge(\"severity\", \"hospital\")\n",
    "g.edge(\"severity\", \"days\")\n",
    "g.edge(\"hospital\", \"treatment\")\n",
    "g.edge(\"treatment\", \"days\")\n",
    "\n",
    "g"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "## Bad Controls - Selection Bias\n",
    "\n",
    "Let's go back to the collections email example. Remember that the email was randomly assigned to customers. We've already explained what `credit_limit` and `risk_score` is. Now, let's look at the remaining variables. `opened` is a dummy variable for the customer opening the email or not. `agreement` is another dummy marking if the customers contacted the collections department to negotiate their debt, after having received the email. Which of the following models do you think is more appropriate? The first is a model with the treatment variable plus `credit_limit` and `risk_score`; the second adds `opened` and `agreement` dummies."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 20,
   "metadata": {
    "ExecuteTime": {
     "end_time": "2023-07-27T13:13:22.956981Z",
     "start_time": "2023-07-27T13:13:22.940080Z"
    }
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table class=\"simpletable\">\n",
       "<tr>\n",
       "        <td></td>          <th>coef</th>     <th>std err</th>      <th>t</th>      <th>P>|t|</th>  <th>[0.025</th>    <th>0.975]</th>  \n",
       "</tr>\n",
       "<tr>\n",
       "  <th>Intercept</th>    <td>  490.8653</td> <td>    9.715</td> <td>   50.527</td> <td> 0.000</td> <td>  471.820</td> <td>  509.911</td>\n",
       "</tr>\n",
       "<tr>\n",
       "  <th>email</th>        <td>    4.4304</td> <td>    2.130</td> <td>    2.080</td> <td> 0.038</td> <td>    0.255</td> <td>    8.606</td>\n",
       "</tr>\n",
       "<tr>\n",
       "  <th>credit_limit</th> <td>    0.1511</td> <td>    0.008</td> <td>   18.833</td> <td> 0.000</td> <td>    0.135</td> <td>    0.167</td>\n",
       "</tr>\n",
       "<tr>\n",
       "  <th>risk_score</th>   <td>   -8.0516</td> <td>   38.424</td> <td>   -0.210</td> <td> 0.834</td> <td>  -83.379</td> <td>   67.276</td>\n",
       "</tr>\n",
       "</table>"
      ],
      "text/plain": [
       "<class 'statsmodels.iolib.table.SimpleTable'>"
      ]
     },
     "execution_count": 20,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "email_1 = smf.ols('payments ~ email + credit_limit + risk_score', data=data).fit()\n",
    "email_1.summary().tables[1]"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 21,
   "metadata": {
    "ExecuteTime": {
     "end_time": "2023-07-27T13:13:22.975840Z",
     "start_time": "2023-07-27T13:13:22.958270Z"
    }
   },
   "outputs": [
    {
     "data": {
      "text/html": [
       "<table class=\"simpletable\">\n",
       "<tr>\n",
       "        <td></td>          <th>coef</th>     <th>std err</th>      <th>t</th>      <th>P>|t|</th>  <th>[0.025</th>    <th>0.975]</th>  \n",
       "</tr>\n",
       "<tr>\n",
       "  <th>Intercept</th>    <td>  488.4416</td> <td>    9.716</td> <td>   50.272</td> <td> 0.000</td> <td>  469.394</td> <td>  507.489</td>\n",
       "</tr>\n",
       "<tr>\n",
       "  <th>email</th>        <td>   -1.6095</td> <td>    2.724</td> <td>   -0.591</td> <td> 0.555</td> <td>   -6.949</td> <td>    3.730</td>\n",
       "</tr>\n",
       "<tr>\n",
       "  <th>credit_limit</th> <td>    0.1507</td> <td>    0.008</td> <td>   18.809</td> <td> 0.000</td> <td>    0.135</td> <td>    0.166</td>\n",
       "</tr>\n",
       "<tr>\n",
       "  <th>risk_score</th>   <td>   -2.0929</td> <td>   38.375</td> <td>   -0.055</td> <td> 0.957</td> <td>  -77.325</td> <td>   73.139</td>\n",
       "</tr>\n",
       "<tr>\n",
       "  <th>opened</th>       <td>    3.9808</td> <td>    3.914</td> <td>    1.017</td> <td> 0.309</td> <td>   -3.692</td> <td>   11.654</td>\n",
       "</tr>\n",
       "<tr>\n",
       "  <th>agreement</th>    <td>   11.7093</td> <td>    4.166</td> <td>    2.811</td> <td> 0.005</td> <td>    3.542</td> <td>   19.876</td>\n",
       "</tr>\n",
       "</table>"
      ],
      "text/plain": [
       "<class 'statsmodels.iolib.table.SimpleTable'>"
      ]
     },
     "execution_count": 21,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "email_2 = smf.ols('payments ~ email + credit_limit + risk_score + opened + agreement', data=data).fit()\n",
    "email_2.summary().tables[1]"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "While the first model finds statistically significant results for the email, the second one does not. But maybe the second one is the right model and there's no effect for the email. After all, this model controls for more factors, so it should be more robust right? By now you probably know that this is not the case. What is left is to figure out what is.\n",
    "\n",
    "We know that we MUST add confounding variables. Variables that cause both the treatment and the outcome. We also know that it is a good idea to add controls that predict the outcome very well. This is not required, but it's nice to have. We also know that it is a bad idea to add controls that predict only the treatment. Again, this is not a deadly sin, but is nice to avoid. So what kind of controls are `opened` and `agreement`? Turns out, they are neither of the above.\n",
    "\n",
    "If you think about it, `opened` and `agreement` are surely correlated with the email. After all, you can't open the email if you didn't receive it and we've also said that the agreement only considers renegotiation that happened after the email has been sent. But **they don't cause email! Instead, they are caused by it!** \n",
    "\n",
    "Whenever I need to understand what kind of variables I'm dealing with, I always like to think about their causal graph. Let's do these here"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 22,
   "metadata": {
    "ExecuteTime": {
     "end_time": "2023-07-27T13:13:23.141988Z",
     "start_time": "2023-07-27T13:13:22.977645Z"
    },
    "tags": [
     "hide-input"
    ]
   },
   "outputs": [
    {
     "data": {
      "image/svg+xml": [
       "<?xml version=\"1.0\" encoding=\"UTF-8\" standalone=\"no\"?>\n",
       "<!DOCTYPE svg PUBLIC \"-//W3C//DTD SVG 1.1//EN\"\n",
       " \"http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd\">\n",
       "<!-- Generated by graphviz version 2.50.0 (0)\n",
       " -->\n",
       "<!-- Pages: 1 -->\n",
       "<svg width=\"303pt\" height=\"260pt\"\n",
       " viewBox=\"0.00 0.00 303.34 260.00\" xmlns=\"http://www.w3.org/2000/svg\" xmlns:xlink=\"http://www.w3.org/1999/xlink\">\n",
       "<g id=\"graph0\" class=\"graph\" transform=\"scale(1 1) rotate(0) translate(4 256)\">\n",
       "<polygon fill=\"white\" stroke=\"transparent\" points=\"-4,4 -4,-256 299.34,-256 299.34,4 -4,4\"/>\n",
       "<!-- email -->\n",
       "<g id=\"node1\" class=\"node\">\n",
       "<title>email</title>\n",
       "<ellipse fill=\"none\" stroke=\"black\" cx=\"30.55\" cy=\"-234\" rx=\"30.59\" ry=\"18\"/>\n",
       "<text text-anchor=\"middle\" x=\"30.55\" y=\"-230.3\" font-family=\"Times,serif\" font-size=\"14.00\">email</text>\n",
       "</g>\n",
       "<!-- payments -->\n",
       "<g id=\"node2\" class=\"node\">\n",
       "<title>payments</title>\n",
       "<ellipse fill=\"none\" stroke=\"black\" cx=\"170.55\" cy=\"-18\" rx=\"44.69\" ry=\"18\"/>\n",
       "<text text-anchor=\"middle\" x=\"170.55\" y=\"-14.3\" font-family=\"Times,serif\" font-size=\"14.00\">payments</text>\n",
       "</g>\n",
       "<!-- email&#45;&gt;payments -->\n",
       "<g id=\"edge1\" class=\"edge\">\n",
       "<title>email&#45;&gt;payments</title>\n",
       "<path fill=\"none\" stroke=\"black\" d=\"M25.81,-216.06C18.06,-184.46 6.44,-115.8 37.55,-72 56.02,-45.99 89.41,-32.73 118.11,-25.99\"/>\n",
       "<polygon fill=\"black\" stroke=\"black\" points=\"118.99,-29.38 128.03,-23.86 117.52,-22.53 118.99,-29.38\"/>\n",
       "</g>\n",
       "<!-- opened -->\n",
       "<g id=\"node3\" class=\"node\">\n",
       "<title>opened</title>\n",
       "<ellipse fill=\"none\" stroke=\"black\" cx=\"132.55\" cy=\"-162\" rx=\"36.29\" ry=\"18\"/>\n",
       "<text text-anchor=\"middle\" x=\"132.55\" y=\"-158.3\" font-family=\"Times,serif\" font-size=\"14.00\">opened</text>\n",
       "</g>\n",
       "<!-- email&#45;&gt;opened -->\n",
       "<g id=\"edge2\" class=\"edge\">\n",
       "<title>email&#45;&gt;opened</title>\n",
       "<path fill=\"none\" stroke=\"black\" d=\"M49.73,-219.83C64.87,-209.45 86.23,-194.79 103.47,-182.96\"/>\n",
       "<polygon fill=\"black\" stroke=\"black\" points=\"105.78,-185.61 112.05,-177.07 101.82,-179.84 105.78,-185.61\"/>\n",
       "</g>\n",
       "<!-- agreement -->\n",
       "<g id=\"node4\" class=\"node\">\n",
       "<title>agreement</title>\n",
       "<ellipse fill=\"none\" stroke=\"black\" cx=\"94.55\" cy=\"-90\" rx=\"48.19\" ry=\"18\"/>\n",
       "<text text-anchor=\"middle\" x=\"94.55\" y=\"-86.3\" font-family=\"Times,serif\" font-size=\"14.00\">agreement</text>\n",
       "</g>\n",
       "<!-- email&#45;&gt;agreement -->\n",
       "<g id=\"edge3\" class=\"edge\">\n",
       "<title>email&#45;&gt;agreement</title>\n",
       "<path fill=\"none\" stroke=\"black\" d=\"M38.01,-216.43C49.03,-191.98 69.76,-146 82.82,-117.02\"/>\n",
       "<polygon fill=\"black\" stroke=\"black\" points=\"86.01,-118.46 86.93,-107.9 79.63,-115.58 86.01,-118.46\"/>\n",
       "</g>\n",
       "<!-- opened&#45;&gt;payments -->\n",
       "<g id=\"edge4\" class=\"edge\">\n",
       "<title>opened&#45;&gt;payments</title>\n",
       "<path fill=\"none\" stroke=\"black\" d=\"M139.3,-144C143.22,-133.7 148.07,-120.22 151.55,-108 157.35,-87.61 162.29,-64.15 165.68,-46.44\"/>\n",
       "<polygon fill=\"black\" stroke=\"black\" points=\"169.19,-46.7 167.58,-36.23 162.3,-45.42 169.19,-46.7\"/>\n",
       "</g>\n",
       "<!-- opened&#45;&gt;agreement -->\n",
       "<g id=\"edge5\" class=\"edge\">\n",
       "<title>opened&#45;&gt;agreement</title>\n",
       "<path fill=\"none\" stroke=\"black\" d=\"M123.54,-144.41C119.06,-136.16 113.55,-126.01 108.54,-116.78\"/>\n",
       "<polygon fill=\"black\" stroke=\"black\" points=\"111.6,-115.07 103.75,-107.96 105.45,-118.41 111.6,-115.07\"/>\n",
       "</g>\n",
       "<!-- agreement&#45;&gt;payments -->\n",
       "<g id=\"edge6\" class=\"edge\">\n",
       "<title>agreement&#45;&gt;payments</title>\n",
       "<path fill=\"none\" stroke=\"black\" d=\"M111.79,-73.12C121.9,-63.81 134.83,-51.9 145.99,-41.62\"/>\n",
       "<polygon fill=\"black\" stroke=\"black\" points=\"148.39,-44.17 153.37,-34.82 143.64,-39.02 148.39,-44.17\"/>\n",
       "</g>\n",
       "<!-- credit_limit -->\n",
       "<g id=\"node5\" class=\"node\">\n",
       "<title>credit_limit</title>\n",
       "<ellipse fill=\"none\" stroke=\"black\" cx=\"131.55\" cy=\"-234\" rx=\"51.99\" ry=\"18\"/>\n",
       "<text text-anchor=\"middle\" x=\"131.55\" y=\"-230.3\" font-family=\"Times,serif\" font-size=\"14.00\">credit_limit</text>\n",
       "</g>\n",
       "<!-- credit_limit&#45;&gt;payments -->\n",
       "<g id=\"edge7\" class=\"edge\">\n",
       "<title>credit_limit&#45;&gt;payments</title>\n",
       "<path fill=\"none\" stroke=\"black\" d=\"M150.93,-217C160.95,-207.45 172.18,-194.38 177.55,-180 194.24,-135.3 185.59,-78.71 177.95,-45.9\"/>\n",
       "<polygon fill=\"black\" stroke=\"black\" points=\"181.33,-45 175.54,-36.13 174.53,-46.68 181.33,-45\"/>\n",
       "</g>\n",
       "<!-- credit_limit&#45;&gt;opened -->\n",
       "<g id=\"edge8\" class=\"edge\">\n",
       "<title>credit_limit&#45;&gt;opened</title>\n",
       "<path fill=\"none\" stroke=\"black\" d=\"M131.79,-215.7C131.9,-207.98 132.04,-198.71 132.16,-190.11\"/>\n",
       "<polygon fill=\"black\" stroke=\"black\" points=\"135.66,-190.15 132.3,-180.1 128.66,-190.05 135.66,-190.15\"/>\n",
       "</g>\n",
       "<!-- credit_limit&#45;&gt;agreement -->\n",
       "<g id=\"edge9\" class=\"edge\">\n",
       "<title>credit_limit&#45;&gt;agreement</title>\n",
       "<path fill=\"none\" stroke=\"black\" d=\"M112.99,-216.84C103.4,-207.23 92.66,-194.17 87.55,-180 80.33,-160.01 82.85,-135.91 86.75,-117.83\"/>\n",
       "<polygon fill=\"black\" stroke=\"black\" points=\"90.19,-118.5 89.14,-107.96 83.39,-116.85 90.19,-118.5\"/>\n",
       "</g>\n",
       "<!-- risk_score -->\n",
       "<g id=\"node6\" class=\"node\">\n",
       "<title>risk_score</title>\n",
       "<ellipse fill=\"none\" stroke=\"black\" cx=\"248.55\" cy=\"-234\" rx=\"46.59\" ry=\"18\"/>\n",
       "<text text-anchor=\"middle\" x=\"248.55\" y=\"-230.3\" font-family=\"Times,serif\" font-size=\"14.00\">risk_score</text>\n",
       "</g>\n",
       "<!-- risk_score&#45;&gt;payments -->\n",
       "<g id=\"edge10\" class=\"edge\">\n",
       "<title>risk_score&#45;&gt;payments</title>\n",
       "<path fill=\"none\" stroke=\"black\" d=\"M244.52,-215.67C237.28,-185.73 220.84,-122.63 199.55,-72 195.67,-62.77 190.65,-53.05 185.88,-44.5\"/>\n",
       "<polygon fill=\"black\" stroke=\"black\" points=\"188.87,-42.68 180.87,-35.74 182.8,-46.16 188.87,-42.68\"/>\n",
       "</g>\n",
       "<!-- risk_score&#45;&gt;opened -->\n",
       "<g id=\"edge11\" class=\"edge\">\n",
       "<title>risk_score&#45;&gt;opened</title>\n",
       "<path fill=\"none\" stroke=\"black\" d=\"M224.51,-218.5C206.87,-207.85 182.75,-193.29 163.64,-181.76\"/>\n",
       "<polygon fill=\"black\" stroke=\"black\" points=\"165.35,-178.71 154.98,-176.54 161.73,-184.7 165.35,-178.71\"/>\n",
       "</g>\n",
       "<!-- risk_score&#45;&gt;agreement -->\n",
       "<g id=\"edge12\" class=\"edge\">\n",
       "<title>risk_score&#45;&gt;agreement</title>\n",
       "<path fill=\"none\" stroke=\"black\" d=\"M237.67,-216.22C224.82,-197.23 202.08,-166.08 177.55,-144 163.31,-131.19 145.64,-119.44 130.27,-110.28\"/>\n",
       "<polygon fill=\"black\" stroke=\"black\" points=\"131.93,-107.2 121.53,-105.2 128.41,-113.25 131.93,-107.2\"/>\n",
       "</g>\n",
       "</g>\n",
       "</svg>\n"
      ],
      "text/plain": [
       "<graphviz.graphs.Digraph at 0x7faaa00d5f90>"
      ]
     },
     "execution_count": 22,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "g = gr.Digraph()\n",
    "\n",
    "g.edge(\"email\", \"payments\")\n",
    "g.edge(\"email\", \"opened\")\n",
    "g.edge(\"email\", \"agreement\")\n",
    "g.edge(\"opened\", \"payments\")\n",
    "g.edge(\"opened\", \"agreement\")\n",
    "g.edge(\"agreement\", \"payments\")\n",
    "\n",
    "g.edge(\"credit_limit\", \"payments\")\n",
    "g.edge(\"credit_limit\", \"opened\")\n",
    "g.edge(\"credit_limit\", \"agreement\")\n",
    "g.edge(\"risk_score\", \"payments\")\n",
    "g.edge(\"risk_score\", \"opened\")\n",
    "g.edge(\"risk_score\", \"agreement\")\n",
    "\n",
    "g"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "We know nothing causes email, because it's random by design. And we know (or at least we have strong reasons to believe) that credit limit and risk cause payments. We also think that email causes payments. As for `opened`, we think that it does cause payments. Intuitively, people that opened the collection email are more willing to negotiate and pay their debt. We also think that `opened` causes agreements for the same reasons as it causes payments. Moreover, we know `opened` is caused by email and we have reasons to believe people with different risk and credit limits have different open rates for the emails, so credit limit and risk also causes opened. As for agreement, we also think that it is caused by `opened`. If we think about the payments response variable, we can think of is as the result of a funnel:\n",
    "\n",
    "$\n",
    "email -> opened -> agreement -> payment \n",
    "$\n",
    "\n",
    "We also think that different levels of risk and line have different propensity of doing an agreement, so we will mark them as also causing agreement. As for email and agreement, we could make an argument that some people just read the subject of the email and that makes them more likely to make an agreement. The point is that email could also cause agreement without passing through open.\n",
    "\n",
    "What we notice with this graph is that opened and agreement are both in the causal path from email to payments. So, if we control for them with regression, we would be saying \"this is the effect of email while keeping `opened` and `agreement` fixed\". However, both are part of the causal effect of the email, so we don't want to hold them fixed. Instead, we could argue that email increases payments precisely because it boosts the agreement rate. If we fix those variables, we are removing some of the true effect from the email variable. \n",
    "\n",
    "With potential outcome notation, we can say that, due to randomization $E[Y_0|T=0] = E[Y_0|T=1]$. However, even with randomization, when we control for agreement, treatment and control are no longer comparable. In fact, with some intuitive thinking, we can even guess how they are different:\n",
    "\n",
    "\n",
    "$\n",
    "E[Y_0|T=0, Agreement=0] > E[Y_0|T=1, Agreement=0]\n",
    "$\n",
    "\n",
    "$\n",
    "E[Y_0|T=0, Agreement=1] > E[Y_0|T=1, Agreement=1]\n",
    "$\n",
    "\n",
    "The first equation makes it explicit that we think those without the email and the agreement are better than those with the email and without the agreement. That is because, if the treatment has a positive effect, those that didn't make an agreement **even after having received the email** are probably worse in terms of payments compared to those that also didn't do the agreement but also didn't get the extra incentive of the email. As for the second equation, those that did the agreement even without having received the treatment are probably better than those that did the agreement but had the extra incentive of the email. \n",
    "\n",
    "This might be very confusing the first time you read it (it was for me), but make sure you understand it. Read it again if necessary. Then, a similar kind of reasoning can be done with the opened variable. Try to make it yourself.\n",
    "\n",
    "This sort of bias is so pervasive it has its own name. While confounding is the bias from failing to control for a common cause, **selection bias is when we control for a common effect or a variable in between the path from cause to effect.** As a rule of thumb, always include confounders and variables that are good predictors of $Y$ in your model. Always exclude variables that are good predictors of only $T$, mediators between the treatment and outcome or common effect of the treatment and outcome.\n",
    "\n",
    "![img](./data/img/beyond-conf/selection.png)\n",
    "\n",
    "Selection bias is so pervasive that not even randomization can fix it. Better yet, it is often introduced by the ill advised, even in random data! Spotting and avoiding selection bias requires more practice than skill. Often, they appear underneath some supposedly clever idea, making it even harder to uncover. Here are some examples of selection biased I've encountered:\n",
    "\n",
    "    1. Adding a dummy for paying the entire debt when trying to estimate the effect of a collections strategy on payments.\n",
    "    2. Controlling for white vs blue collar jobs when trying to estimate the effect of schooling on earnings\n",
    "    3. Controlling for conversion when estimating the impact of interest rates on loan duration\n",
    "    4. Controlling for marital happiness when estimating the impact of children on extramarital affairs\n",
    "    5. Breaking up payments modeling E[Payments] into one binary model that predict if payment will happen and another model that predict how much payment will happen given that some will: E[Payments|Payments>0]*P(Payments>0)\n",
    "    \n",
    "What is notable about all these ideas is how reasonable they sound. Selection bias often does. Let this be a warning. As a matter of fact, I myself have fallen into the traps above many many times before I learned how bad they were. One in particular, the last one, deserves further explanation because it looks so clever and catches lots of data scientists off guard. It's so pervasive that it has its own name: **The Bad COP**!\n",
    "\n",
    "### Bad COP\n",
    "\n",
    "The situation goes like this. You have a continuous variable that you want to predict but its distribution is overrepresented at zero. For instance, if you want to model consumer spending, you will have something like a gamma distribution, but with lots of zeros."
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 23,
   "metadata": {
    "ExecuteTime": {
     "end_time": "2023-07-27T13:13:23.228083Z",
     "start_time": "2023-07-27T13:13:23.144245Z"
    },
    "tags": [
     "hide-input"
    ]
   },
   "outputs": [
    {
     "data": {
      "image/png": "iVBORw0KGgoAAAANSUhEUgAAAZwAAAEXCAYAAACZNvIiAAAAOXRFWHRTb2Z0d2FyZQBNYXRwbG90bGliIHZlcnNpb24zLjUuMiwgaHR0cHM6Ly9tYXRwbG90bGliLm9yZy8qNh9FAAAACXBIWXMAAAsTAAALEwEAmpwYAAAfc0lEQVR4nO3df5gcVZ3v8feHBIIBCclq4pAEiTr+SFwJCFEEFY2aIK6Ju6JxVzdAVPbeqLjuuibevcJ6DYKLIs9e43oFMVfAMCJIru6KuVFUViUKgpCE2CPBZJIh4TeCGE347h/nzFK03Zme6Z7K9Mzn9Tz9dNepc6pOfaenv32qqqsUEZiZmQ21A/Z3B8zMbHRwwjEzs1I44ZiZWSmccMzMrBROOGZmVgonHDMzK4UTzigk6VxJ3UO07JMlhaRptaaHYH2nS9ozFMu2kUvSUfl9edL+7sto4oQzQkj6cv4HCkl7JD0g6ceSzpE0qar6hcDLB7DsbknnNlj9R0AHsKPR5TfYh2l5206umnUVMLWV6+qnH0dK+rykLZJ2S9ou6XpJCyWpReuot61tQ9IZkm6W9Iik30jaJOmL+7tftn854YwsPyR92B8JvBL4IvAOYIOk5/dViohHI+K+Vq9c0kER8fuIuCcinmj18muJiMcjYmcZ65I0G7gVeBnwIeBPgdcBa4CLgAll9GO4kHRQnfLTgX8FLgOOA14KLAPGlNY5G54iwo8R8AC+DPz/GuWHAb8CvlsoOxfoLkxPA74O3Ac8DtwFfDjPuwGIqsdRwMn59anAjcDvgPcVyqfl9n3Tfwasz/U2AK8vrP8pbQrle4DT8+vqPtydy08H9lS1eyNwM7Ab2AWsBA6pjhXwXuDXwCPAdcAz9xFfAbcBtwNja8w/tK8cuBv4x6r5lwA3FKZPAv4D+E1+3AbM29e25nmLgY1523qATxT7k/9el+byXcBDwArSl8uPATuBe4EVVf0bm98XWwp/o7Oq6gTwAeBK4GHga3Vi9Q3g6n7er6fnv+/r8rp+l98fx1bVeynwHeDR3O9rgGdXv5eBBcCdwGPA94DnVi3nbbne70ij8Dfn7Tlpf//vjqaHRzgjXEQ8AnweOFnSM+tUW0n6dv464EXAEtKHGcCfkz5AP00aPXUA2wptPw18Krf7xj668hng48AxwE+ANZIGsivs2Pz8F7kPx9eqJOklpBHHD4DZpA/oN5G+cRcdD7yGlDDn57oX7mP9RwMvAS6IiD86ZhRp1NjQsSRJY3IfbyJt17GkD87f5io1t1XSqcCXgK+QRld/BywFzqlaxVuBA0lJ7UPAR4FvkpLiK4G/Bz4q6ZRCm0tIf+uzSH/LjwMXSFpStexzgB/nPv6POpvYCxxXHFXXcQDpvfPfgTmkBPktSePz9s4Evp/XdxzwWmAvsFbSwYXldAD/Dfgr4BXA4aQ4kZdzDLAa+Brp73ghcHE/fbOhsL8znh+teVBnhJPnzSd9m5uTp8/lqSOc24Bz97Hs7ur5PDkqeVed8uoRzpJCnbGkkcUnarUp1CuOcKblOidX1TmdwgiH9GG8vqrOAuAJ8jfjHKt7gXGFOsuA3n3E4G15/cfWq1Ooezf7GOEAE2ttS6FuvW39IdBVVXY2aVR6UJ6+Abi1qs4G4PaqstuAC/PrGTk+L6yq87HisnKfLm1g+59FGvVGjsVVpNHk+Kq/WwBzC2UTSSOZdxf+Tqurlj2OlJgXFt7LeyiMToFFeXsOztOXAz+qWs778Ain9MdYbDToO5hd70qtnwW+kL/x3gB8KyJ+0OCy1zdY78d9LyJij6T1wMwG2w7ELOC7VWXfJ8VgJinRAWyKiN2FOtuBKftYbn8xbFhEPCjpEuB6Sd/N/bs2Ijb303QW6cO76PvAwcBzgU257LaqOvfkR3XZ5Pz6ONL2/azqvIexpBFFUb9/74i4BzhJ0ouAV5GOeX0KWC7pZRGxq1C9+L54UNImnnxfHA88T9KjVas4GOgsTO+IiHsL09vz9kwGtublrataxo39bYe1nnepjQ4vJn1Q3lVrZkRcBjybtNupA/h3SZc3uOzHBtmn4ifbE9VlebfTYN+f9ZJCsfz3Nebt6yyzvmQwq4H1P1FjWQc+ZWUR7yEdn1gLvBq4Q9JZDSy7ettqJcI/1GhTq6wvvn3PryDtWux7vJi0G7Go4b93RGyKiC9ExJmkXanTSLu+9qUYtwNII9bZVY/nk0aMfWr9Lfva9y3Tl8UfBpxwRjhJh5H+yddFxP316kVEb0RcFhF/TTqG81e5LaR/6GbPMPqv07AljSV9e+37Rt73jfeIQv3ZPPXDp+9Dpb9+bCB9gBe9mvSBs7Hx7v6RvhMGPpL7/xSSDi2U7+Kp2wLpA/cpIuKOiPhMRJxCOtD/3jyr3rbW2rZX8eSJHoN1c34+MiK6qx6/amK5RXeTdoVNriovvi8OB17Ik++Ln5ES3q9q9OvBAax7A3BiVVn1tJXACWdkOUjSsyR1SJop6UzSLpBx7OObpaT/LemNkp4raRbp4PE20tlTkM5cOjH/BuUZkgbzvlmW1/Ei0kkMU/IzpGNEvwbOlfTC/GO8i3jqt9L7SPv335C3cWKd9fwzcKykz+RlzQf+BbgiIrYOot8ARNrxfzrpW/pN+Xc3nXkdZwG/IB2Uh3QG3NslvUHSCyRdRBpBAiDpeZIukHSSpGdLOoF0ML8vIdbb1k8CfyFpmaTnS3ob6RjGpyOi+lv+QLatm3SQ/YuS3pX7d7SkMyV9ZKDLy79TOkfSK/P2vRRYRTpj8hvFVQOfkvQqSX8K/F/SCOrKPP880gkMl0uaI2mGpNdIuljScwbQpYuAEyStyHF7C+mECyuZE87I8krSGULbSKfcvpf0z/vi/KFSj0jHce4gnd11CHBK/pCFdGbSBNJupXtJv/MZqL8H/hfpdywnAgsiogfSMR3g7aRvvz8HPkc6A+q/fssT6Xc9S0kH77flen8kIn5BOuX11aRRyVeAbwF/M4g+Vy/7FtJI5WekeG0gHS96C/BB0qnCABfkdV5FOtD/MOkMqT6PkY5BrAZ+STol/UekA9l1tzUi/g04k3Tm3R2kD9KVwD81u22k98pFpLhvJB3zWMzgRk5rSbsLv0ravn8j7ap9Y0SsLdR7gnQG3RdIMe0ATo2IxyDtkiPt5jsUuD7364vA00inezckIm4G/pJ0MsHtpBNE/nYQ22VN0pOfKWZm5cg/Dr0kInzi0ijiEY6ZmZXCCcfMzErhXWpmZlYKj3DMzKwU++WA3cMPP+xhlZnZCDdhwoSn/ADaIxwzMyuFE46ZmZWirRNOpVLZ310YERzH5jmGreE4tsZwjWNbJxwzM2sfTjhmZlYKJxwzMyuFE46ZmZWi34STL69+a+HxiKQPSpokaa2kSn6eWGizXFK3pM2S5g3tJpiZWTvoN+FExOaImB0Rs0mXHP8tcC3pEt/rIqKTdCnzZQCSZpIuAz4LmA+szHdvNDOzUWygu9Tmku6+92tgAemmSuTnhfn1AmB1ROyOiC2km2vNaUFfzcysjQ300jaLSDdVApgSEb2Qbk8sqe/WsVOBnxTa9OSyljv+xvFw4/amlvHQGUPSNTMzq9JwwpF0EOlOisv7q1qjrO6105r7gdL4Jtq2Yv0jh+PQPMewNRzH1thfcezs7Kw7byAjnFOAWyJiZ57eKakjj246gF25vAeYXmg3DdgxmM71q8nRTdPrHyEqlYrj0CTHsDUcx9YYrnEcyDGcd/Dk7jSANaR7npOfryuUL5I0TtIM0r3b1zfbUTMza28NjXAkjQdeD5xVKD4f6JK0BNgKnAYQERskdQEbgT3A0ojY29Jem5lZ22ko4UTEb4E/qSq7n3TWWq36K4AVTffOzMxGDF9pwMzMSuGEY2ZmpXDCMTOzUjjhmJlZKZxwzMysFE44ZmZWCiccMzMrhROOmZmVwgnHzMxK4YRjZmalcMIxM7NSOOGYmVkpnHDMzKwUTjhmZlYKJxwzMyuFE46ZmZXCCcfMzErhhGNmZqVwwjEzs1I44ZiZWSkaSjiSDpd0taQ7JW2SdIKkSZLWSqrk54mF+ssldUvaLGne0HXfzMzaRaMjnIuBb0fEC4GjgU3AMmBdRHQC6/I0kmYCi4BZwHxgpaQxre64mZm1l34TjqTDgFcBlwJExO8j4iFgAbAqV1sFLMyvFwCrI2J3RGwBuoE5re22mZm1m0ZGOM8B7gUuk/RzSZdIOgSYEhG9APl5cq4/FdhWaN+Ty8zMbBQb22CdY4H3R8RNki4m7z6rQzXKol7lSqXSQBfqGd9E21asf+RwHJrnGLaG49ga+yuOnZ2ddec1knB6gJ6IuClPX01KODsldUREr6QOYFeh/vRC+2nAjsF0rl83bh9821asf4SoVCqOQ5Mcw9ZwHFtjuMax311qEXEPsE3SC3LRXGAjsAZYnMsWA9fl12uARZLGSZoBdALrW9prMzNrO42McADeD1wh6SDgLuAMUrLqkrQE2AqcBhARGyR1kZLSHmBpROxtec/NzKytNJRwIuJW4Lgas+bWqb8CWDH4bpmZ2UjjKw2YmVkpnHDMzKwUTjhmZlYKJxwzMyuFE46ZmZXCCcfMzErhhGNmZqVwwjEzs1I44ZiZWSmccMzMrBROOGZmVgonHDMzK4UTjpmZlcIJx8zMSuGEY2ZmpXDCMTOzUjjhmJlZKZxwzMysFE44ZmZWCiccMzMrhROOmZmVoqGEI+luSbdLulXSz3LZJElrJVXy88RC/eWSuiVtljRvqDpvZmbtYyAjnNdExOyIOC5PLwPWRUQnsC5PI2kmsAiYBcwHVkoa08I+m5lZG2pml9oCYFV+vQpYWChfHRG7I2IL0A3MaWI9ZmY2AjSacAL4jqSbJb03l02JiF6A/Dw5l08FthXa9uQyMzMbxcY2WO/EiNghaTKwVtKd+6irGmVRr3KlUmmwC7WMb6JtK9Y/cjgOzXMMW8NxbI39FcfOzs668xpKOBGxIz/vknQtaRfZTkkdEdErqQPYlav3ANMLzacBOwbTuX7duH3wbVux/hGiUqk4Dk1yDFvDcWyN4RrHfnepSTpE0tP7XgNvAO4A1gCLc7XFwHX59RpgkaRxkmYAncD6VnfczMzaSyMjnCnAtZL66l8ZEd+W9FOgS9ISYCtwGkBEbJDUBWwE9gBLI2LvkPTezMzaRr8JJyLuAo6uUX4/MLdOmxXAiqZ7Z2ZmI4avNGBmZqVwwjEzs1I44ZiZWSmccMzMrBROOGZmVgonHDMzK4UTjpmZlcIJx8zMSuGEY2ZmpXDCMTOzUjjhmJlZKZxwzMysFE44ZmZWCiccMzMrhROOmZmVwgnHzMxK4YRjZmalcMIxM7NSOOGYmVkpnHDMzKwUDSccSWMk/VzSN/P0JElrJVXy88RC3eWSuiVtljRvKDpuZmbtZSAjnLOBTYXpZcC6iOgE1uVpJM0EFgGzgPnASkljWtNdMzNrVw0lHEnTgFOBSwrFC4BV+fUqYGGhfHVE7I6ILUA3MKclvTUzs7bV6Ajns8A/AE8UyqZERC9Afp6cy6cC2wr1enKZmZmNYmP7qyDpTcCuiLhZ0skNLFM1yqJe5Uql0sAi6xnfRNtWrH/kcBya5xi2huPYGvsrjp2dnXXn9ZtwgBOBN0t6I3AwcJiky4GdkjoioldSB7Ar1+8BphfaTwN2DKZz/bpx++DbtmL9I0SlUnEcmuQYtobj2BrDNY797lKLiOURMS0ijiKdDPDdiHgnsAZYnKstBq7Lr9cAiySNkzQD6ATWt7znZmbWVhoZ4dRzPtAlaQmwFTgNICI2SOoCNgJ7gKURsbfpnpqZWVsbUMKJiBuAG/Lr+4G5deqtAFY02TczMxtBfKUBMzMrhROOmZmVwgnHzMxK4YRjZmalcMIxM7NSOOGYmVkpnHDMzKwUTjhmZlYKJxwzMyuFE46ZmZXCCcfMzErhhGNmZqVwwjEzs1I44ZiZWSmccMzMrBROOGZmVgonHDMzK4UTjpmZlcIJx8zMSuGEY2ZmpXDCMTOzUvSbcCQdLGm9pNskbZD0T7l8kqS1kir5eWKhzXJJ3ZI2S5o3lBtgZmbtoZERzm7gtRFxNDAbmC/p5cAyYF1EdALr8jSSZgKLgFnAfGClpDFD0HczM2sj/SacSB7NkwfmRwALgFW5fBWwML9eAKyOiN0RsQXoBua0stNmZtZ+GjqGI2mMpFuBXcDaiLgJmBIRvQD5eXKuPhXYVmjek8vMzGwUG9tIpYjYC8yWdDhwraQX76O6ai2iXuVKpdJIF+oY30TbVqx/5HAcmucYtobj2Br7K46dnZ115zWUcPpExEOSbiAdm9kpqSMieiV1kEY/kEY00wvNpgE7BtO5ft24ffBtW7H+EaJSqTgOTXIMW8NxbI3hGsdGzlJ7Zh7ZIOlpwOuAO4E1wOJcbTFwXX69BlgkaZykGUAnsL7F/TYzszbTyAinA1iVzzQ7AOiKiG9K+jHQJWkJsBU4DSAiNkjqAjYCe4CleZecmZmNYv0mnIj4BXBMjfL7gbl12qwAVjTdOzMzGzF8pQEzMyuFE46ZmZXCCcfMzErhhGNmZqVwwjEzs1I44ZiZWSmccMzMrBROOGZmVgonHDMzK4UTjpmZlcIJx8zMSuGEY2ZmpXDCMTOzUjjhmJlZKZxwzMysFE44ZmZWCiccMzMrhROOmZmVwgnHzMxK4YRjZmalcMIxM7NS9JtwJE2X9D1JmyRtkHR2Lp8kaa2kSn6eWGizXFK3pM2S5g3lBpiZWXtoZISzB/i7iHgR8HJgqaSZwDJgXUR0AuvyNHneImAWMB9YKWnMUHTezMzaR78JJyJ6I+KW/Po3wCZgKrAAWJWrrQIW5tcLgNURsTsitgDdwJwW99vMzNrM2IFUlnQUcAxwEzAlInohJSVJk3O1qcBPCs16cllNlUplIF2oMr6Jtq1Y/8jhODTPMWwNx7E19lccOzs7685rOOFIOhT4OvDBiHhEUt2qNcpiMJ3r143bB9+2FesfISqViuPQJMewNRzH1hiucWzoLDVJB5KSzRURcU0u3impI8/vAHbl8h5geqH5NGBHa7prZmbtqpGz1ARcCmyKiM8UZq0BFufXi4HrCuWLJI2TNAPoBNa3rstmZtaOGtmldiLwLuB2Sbfmso8C5wNdkpYAW4HTACJig6QuYCPpDLelEbG31R03M7P20m/CiYgbqX1cBmBunTYrgBVN9MvMzEYYX2nAzMxK4YRjZmalcMIxM7NSOOGYmVkpnHDMzKwUTjhmZlaKAV1LzYa3wy8b7KV+xrfkMkF9Hjqj7qXzzGwU8wjHzMxK4YRjZmalcMIxM7NSOOGYmVkpnHDMzKwUTjhmZlYKJxwzMyuFf4czTAz+NzRmZu3BIxwzMyuFRzjWcq0YrflqBWYjj0c4ZmZWCiccMzMrhROOmZmVot+EI+lLknZJuqNQNknSWkmV/DyxMG+5pG5JmyXNG6qOm5lZe2lkhPNlYH5V2TJgXUR0AuvyNJJmAouAWbnNSkljWtZbMzNrW/0mnIj4AfBAVfECYFV+vQpYWChfHRG7I2IL0A3MaU1XzcysnQ32GM6UiOgFyM+Tc/lUYFuhXk8uMzOzUa7Vv8NRjbLYV4NKpdLE6sY30bYV62+l5rdlJGnVlRd+etJvW7KcRgyf91J7cxxbY3/FsbOzs+68wSacnZI6IqJXUgewK5f3ANML9aYBOwbbuX614LbITa2/lVp4i2d7Ull/30qlMnzeS23McWyN4RrHwe5SWwMszq8XA9cVyhdJGidpBtAJrG+ui2ZmNhL0O8KR9FXgZOAZknqAc4DzgS5JS4CtwGkAEbFBUhewEdgDLI2IvUPUdzMzayP9JpyIeEedWXPr1F8BrGimU2ZmNvL4SgNmZlYKJxwzMyuFb0/QAr55mplZ/zzCMTOzUjjhmJlZKbxLzUY0333UbPjwCMfMzErhhGNmZqVwwjEzs1L4GI5ZPxo7DjR+nxdg9XEgM49wzMysJE44ZmZWCu9SMyuBT8828wjHzMxK4oRjZmalGPW71HzhTTOzcniEY2ZmpXDCMTOzUjjhmJlZKUb9MRyzduFTq63deYRjZmalGLIRjqT5wMXAGOCSiDh/qNZlZo0ZLmdleqQ1Og1JwpE0Bvgc8HqgB/ippDURsXEo1mdmo493MbYfRUTrFyqdAJwbEfPy9HKAiPgkwMMPP9z6lZqZ2bAyYcIEFaeH6hjOVGBbYbonl5mZ2Sg1VAlHNco8qjEzG8WG6qSBHmB6YXoasKNvonqYZWZmI99QjXB+CnRKmiHpIGARsGaI1mVmZm1gSBJOROwB3gdcD2wCuiJiQ6uWL2m+pM2SuiUta9VyRyJJ0yV9T9ImSRsknZ3LJ0laK6mSnycW2izPsd0sad7+6/3wImmMpJ9L+maedgwHSNLhkq6WdGd+T57gOA6cpL/N/893SPqqpIPbIo4R0VYP0u96fgU8BzgIuA2Yub/7NVwfQAdwbH79dOCXwEzgU8CyXL4MuCC/npljOg6YkWM9Zn9vx3B4AB8CrgS+macdw4HHcBXw7vz6IOBwx3HAMZwKbAGelqe7gNPbIY7teKWBOUB3RNwVEb8HVgML9nOfhq2I6I2IW/Lr35BGnFNJMVuVq60CFubXC4DVEbE7IrYA3aSYj2qSpgGnApcUih3DAZB0GPAq4FKAiPh9RDyE4zgYY4GnSRoLjCcdIx/2cWzHhONTrgdJ0lHAMcBNwJSI6IWUlIDJuZrjW9tngX8AniiUOYYD8xzgXuCyvGvyEkmH4DgOSERsBy4EtgK9wMMR8R3aII7tmHB8yvUgSDoU+DrwwYh4ZF9Va5SN6vhKehOwKyJubrRJjbJRHcNsLHAs8PmIOAZ4jLTrpx7HsYZ8bGYBaffYEcAhkt65ryY1yvZLHNsx4ezzlGv7Y5IOJCWbKyLimly8U1JHnt8B7Mrlju8fOxF4s6S7SbtwXyvpchzDgeoBeiLipjx9NSkBOY4D8zpgS0TcGxF/AK4BXkEbxLEdE45PuR4ASSLtM98UEZ8pzFoDLM6vFwPXFcoXSRonaQbQCawvq7/DUUQsj4hpEXEU6f323Yh4J47hgETEPcA2SS/IRXOBjTiOA7UVeLmk8fn/ey7p2Oywj2Pb3Q8nIvZI6jvlegzwpWjhKdcj0InAu4DbJd2ayz4KnA90SVpCegOfBhARGyR1kT4I9gBLI2Jv6b1uD47hwL0fuCJ/WbwLOIP0xddxbFBE3CTpauAWUlx+Dvwf4FCGeRyH5OKdZmZm1dpxl5qZmbUhJxwzMyuFE46ZmZXCCcfMzErhhGNmZqVwwjGzfZJ0lKTI1+0yGzQnHGsLkv5S0s8kPSqpV9K/SzqpyWWem68YMCzlS/l/SdI9kn4j6ZeSPrK/+2U2WE44NuxJ+hDp4pnnAVOAI4GVjKCrhNcZPVxE+jHfi4AJwJtJl5Y3a0tOODasSZoAfJz06+hrIuKxiPhDRPy/iPhwrvNlSZ8otDlZUk9h+iOStudRwmZJcyXNJ11x4e151HRbrnuEpDWSHsg3rHpPYTnnSvqapMvzsm6X9Px8c6tdkrZJekOx75IuzSOy7ZI+IWlMnne6pP+QdJGkB4Bza2z+8cCVEfFgRDwREXdGxNWF5YekD0i6S9J9kv5Z0gGF+Wcq3eTsQUnXS3p2Vdu/yTfrelDS5/JlUvpuNHdhXuZdpNsymDXNCceGuxOAg4FrB9M4X7frfcDxEfF0YB5wd0R8mzRiuioiDo2Io3OTr5IudngE8FbgPElzC4v8M+ArwETSJUWuJ/0fTSUlxi8U6q4iXUrkeaTbQrwBeHdh/stIl3eZDKyo0f2fACsknSGps84mvgU4jnQRzAXAmXm7F5IS6p8DzwR+mLet6E2kpHY08LYcG4D35HnH5GW/tc66zQbECceGuz8B7ot02/LB2Eu60+FMSQdGxN0RUXO3lKTpwEnARyLidxFxK+mGa+8qVPthRFyf+/M10of5+fmqvauBo/KxlynAKaTbQTwWEbtIu8gWFZa1IyL+JSL2RMTjNbr0fuAKUsLcmEdcp1TVuSAiHoiIraTdju/I5WcBn4yITbmv5wGzi6Oc3O+HctvvAbNz+duAz0bEtoh4APhkrXiZDZQTjg139wPPGOwZUhHRDXyQtMtql6TVko6oU/0I4IF8Z9Q+v+apN6vaWXj9OCkZ7i1MQzru8mzgQKBX0kOSHiKNfiYX2hdvilWr749HxHkR8VJS4u0CviZpUp1l/DpvA3n9FxfW/QDpvijFbbmn8Pq3ud/kZVQv16xpTjg23P0Y+B1P3i63lsdIt9nt86zizIi4MiJOIn0IB3BB36yq5ewAJkl6eqHsSGD7wLvNNmA38IyIODw/DouIWcWuNbqwfNO884BDSDfe6lO8z8mRPHmfk23AWYV1Hx4RT4uIHzWwut4ayzVrmhOODWsR8TDwMeBzkhbme4AcKOkUSZ/K1W4F3ihpkqRnkUY0QDqGI+m1ksaREtfjpN1skEYrR/UdaI+IbcCPgE9KOljSS4AlpN1aA+13L/Ad4NOSDpN0gKTnSnp1o8uQ9D8lHS/pIEkHA2cDDwGbC9U+LGli3h14NnBVLv9XYLmkWXlZEySd1uCqu4APSJqmdHfJfd2V06xhTjg27OUbx30I+EfgXtK39/cB38hVvgLcBtxN+pC/qtB8HOm+NfeRdiFNJh1Mh3QMBuB+Sbfk1+8AjiKNFK4FzomItYPs+l8DB5HuQ/Ig6Q6XHQNoH8Blue87gNcDp0bEo4U61wE3k5Lut0g32yMiriWN5FZLegS4g3RMqRFfJJ0McRvpnivX7Lu6WWN8PxyzNiUpgM58nMps2PMIx8zMSuGEY2ZmpfAuNTMzK4VHOGZmVgonHDMzK4UTjpmZlcIJx8zMSuGEY2ZmpXDCMTOzUvwnocif/NK9Im8AAAAASUVORK5CYII=\n",
      "text/plain": [
       "<Figure size 432x288 with 1 Axes>"
      ]
     },
     "metadata": {
      "needs_background": "light"
     },
     "output_type": "display_data"
    }
   ],
   "source": [
    "plt.hist(np.concatenate([\n",
    "    np.random.gamma(5, 50, 1000), \n",
    "    np.zeros(700)\n",
    "]), bins=20)\n",
    "plt.xlabel(\"Customer Spend\")\n",
    "plt.title(\"Distribution Customer Spend\");"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "When a data scientist sees this, the first idea that pops into his head is to break up modeling into 2 steps. The first is the participation, that is, the probability that $Y > 0$. In our spend example, this would be modeling if the customer decided to spend or not. The second part models $Y$ for those that decided to participate. It is the Conditional-on-Positives effect. In our case, this would be how much the customer spends after he or she decided they would spend anything. If we would like to estimate the effect of the treatment $T$ on expenditures, it would look something this:\n",
    " \n",
    "$\n",
    "E[Y|T] = E[Y|Y>0, T]P(Y>0|T)\n",
    "$\n",
    " \n",
    "There is nothing wrong with the participation model $P(Y_i>0|T_i)$. In fact, if $T$ is randomly assigned, it will capture the increase in probability of spending due to the treatment. Also, there is nothing wrong with the decomposition above. It's mathematically true, by the law of total probabilities.\n",
    " \n",
    "The issue is in estimating the COP part. **It will be biased even under random assignment**. On an intuitive level, it's not crazy to think that some units are zeros only because they didn't get the treatment. The treatment would cause them to **not** be zeros. On the other hand, some units are never zeros. The treatment might increase their outcome, but even without it, they would not be zeros. Now, the key point is understanding that these two types of units are not comparable. Those that are never zeros have high $Y_0$ compared to those that are zeros if they didn't get the treatment. In fact, for the latter, $Y_0=0$. \n",
    " \n",
    "Knowing this, if we remove the zeros, we will keep the never zeros on both the treated and the control group. But we would remove from the control those that flip from zero to not zero with the treatment. This would make the treatment and control no longer comparable, because the control would only contain those that are never zeros and that have higher $Y_0$, while the treated would contain both types of units. \n",
    " \n",
    "Now that we have an intuitive understanding of the problem, let's check it from a mathematical angle. To see it, let's break up the treatment effect. Under random assignment, it is equal to the difference in means\n",
    " \n",
    "$$\n",
    "\\begin{align*} \n",
    "&E[Y|T=1] - E[Y|T=0]\\\\\n",
    "&=E[Y|Y>0, T=1]P(Y>0|T=1) - E[Y|Y>0, T=0]P(Y>0|T=0)\\\\\n",
    "&=\\underbrace{\\{P(Y>0|T=1) - P(Y>0|T=0)\\}}_{Participation \\ Effect} * E[Y|Y>0, T=1]\\\\\n",
    "&+\\underbrace{\\{E[Y|Y>0, T=1] - E[Y|Y>0, T=0]\\}}_{COP \\ Effect} * P(Y>0|T=0)\n",
    "\\end{align*} \n",
    "$$\n",
    " \n",
    "Where the last equality comes from adding and subtracting $E[Y_i|Y_i>0, T_i=1]P(Y_i>0|T_i=0)$ and rearranging the terms. This means that the difference in averages is composed of two parts: first, it's the difference in the probability that the outcome $y$ is positive. This is called the participation effect because it measures the increase in the probability that customers will participate in spending. Second, it's the difference in the outcome conditioned on participation, the COP effect. So far so good. There is nothing wrong with this. It is a mathematical truth. The problem comes when we try to estimate each part separately\n",
    " \n",
    "This becomes more evident if we analyse the COP effect even further.  \n",
    " \n",
    "$$\n",
    "\\begin{align*} \n",
    "E[Y|Y>0, T=1] - E[Y|Y>0, T=0]&=E[Y_{1}|Y_{1}>0]-E[Y_{0}|Y_{0}>0] \\\\\n",
    "&=\\underbrace{E[Y_{1} - Y_{0}|Y_{1}>0]}_{Causal \\ Effect} + \\underbrace{\\{ E[Y_{0}|Y_{1}>0] - E[Y_{0}|Y_{0}>0] \\}}_{Selection \\ Bias}\n",
    "\\end{align*} \n",
    "$$\n",
    " \n",
    "where the second equality comes after we add and subtract $E[Y_{i0}|Y_{i1}>0]$. When we break up the COP effect, we get first the causal effect on the participant subpopulation. In our example, this would be the causal effect on those that decide to spend something. Second, we get a bias term which is the difference in $Y_0$ for those that decide to participate when assigned to the treatment ($E[Y_{i0}|Y_{i1}>0]$) and those that that participate even without the treatment ($E[Y_{i0}|Y_{i0}>0]$). In our case, this bias is probably negative, since those that spend when assigned to the treatment, had they not received the treatment, would probably spend less than those that spend even without the treatment $E[Y_{i0}|Y_{i1}>0] < E[Y_{i0}|Y_{i0}>0]$.\n",
    " \n",
    "![img](./data/img/beyond-conf/cop.png)\n",
    " \n",
    "Now, I know that COP bias is super counterintuitive at first, so I think it is worth going through a visual example. Let's say that we want to estimate how a marketing campaign increases how much people spend on our product. This marketing campaign has been randomized, so we don't need to worry about confounding. In this example, we can break up the customers into two segments. First, there are those that will only buy our products if they see a marketing campaign. Let's call these customers the frugal ones. They don't spend unless we give them an extra push. Then there are the customers that will spend even without the campaign. The campaign makes them spend more, but they would already spend without seeing it anyway. Let's call them the rich customers. In the figure, I've displayed the counterfactuals in light colors and dashed lines. \n",
    " \n",
    "![img](./data/img/beyond-conf/cop-ex1.png)\n",
    " \n",
    "To estimate the ATE of the campaign, since we have randomization, all we need to do is compare the treated with the untreated. But, suppose we use the COP formulation where we break up estimation into two models, a participation model that estimates $P(Y_i>0|T_i)$ and the COP, which estimates $E[Y_i|Y_i>0]$. This removes everyone that didn't spend from the analysis. \n",
    " \n",
    "![img](./data/img/beyond-conf/cop-ex2.png)\n",
    " \n",
    "When we do that, the treated and control are no longer comparable. As we can see, the untreated is now only composed of the segment of customers that will spend even without the campaign. Also notice that we can even know the direction of the bias here. It will be $E[Y_{i0}|Y_{i1}>0] - E[Y_{i0}|Y_{i0}>0]$ or $E[Y_{i0}|\\text{Frugal and Rich}] - E[Y_{i0}|Rich]$. This is obviously negative, as the rich spend more than the frugal customers. As a result, once we filter only the participant population, our estimate of the ATE becomes biased, even if there was no bias at first due to randomization. I sincerely hope this convinces you to avoid COP like the plague. I see too many Data Scientists doing this separate estimation, unaware of the problems that it brings. "
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "To wrap up selection bias, we need to always remind ourselves to never control for a variable that is either in between the treatment and the outcome or is a common effect of the outcome and the treated. In graphical language, here is what bad control looks like:"
   ]
  },
  {
   "cell_type": "code",
   "execution_count": 24,
   "metadata": {
    "ExecuteTime": {
     "end_time": "2023-07-27T13:13:23.384107Z",
     "start_time": "2023-07-27T13:13:23.229472Z"
    },
    "tags": [
     "hide-input"
    ]
   },
   "outputs": [
    {
     "data": {
      "image/svg+xml": [
       "<?xml version=\"1.0\" encoding=\"UTF-8\" standalone=\"no\"?>\n",
       "<!DOCTYPE svg PUBLIC \"-//W3C//DTD SVG 1.1//EN\"\n",
       " \"http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd\">\n",
       "<!-- Generated by graphviz version 2.50.0 (0)\n",
       " -->\n",
       "<!-- Pages: 1 -->\n",
       "<svg width=\"89pt\" height=\"260pt\"\n",
       " viewBox=\"0.00 0.00 89.00 260.00\" xmlns=\"http://www.w3.org/2000/svg\" xmlns:xlink=\"http://www.w3.org/1999/xlink\">\n",
       "<g id=\"graph0\" class=\"graph\" transform=\"scale(1 1) rotate(0) translate(4 256)\">\n",
       "<polygon fill=\"white\" stroke=\"transparent\" points=\"-4,4 -4,-256 85,-256 85,4 -4,4\"/>\n",
       "<!-- T -->\n",
       "<g id=\"node1\" class=\"node\">\n",
       "<title>T</title>\n",
       "<ellipse fill=\"none\" stroke=\"gold\" cx=\"54\" cy=\"-234\" rx=\"27\" ry=\"18\"/>\n",
       "<text text-anchor=\"middle\" x=\"54\" y=\"-230.3\" font-family=\"Times,serif\" font-size=\"14.00\">T</text>\n",
       "</g>\n",
       "<!-- X_1 -->\n",
       "<g id=\"node2\" class=\"node\">\n",
       "<title>X_1</title>\n",
       "<ellipse fill=\"none\" stroke=\"red\" cx=\"27\" cy=\"-162\" rx=\"27\" ry=\"18\"/>\n",
       "<text text-anchor=\"middle\" x=\"27\" y=\"-158.3\" font-family=\"Times,serif\" font-size=\"14.00\">X_1</text>\n",
       "</g>\n",
       "<!-- T&#45;&gt;X_1 -->\n",
       "<g id=\"edge1\" class=\"edge\">\n",
       "<title>T&#45;&gt;X_1</title>\n",
       "<path fill=\"none\" stroke=\"black\" d=\"M47.6,-216.41C44.49,-208.34 40.67,-198.43 37.17,-189.35\"/>\n",
       "<polygon fill=\"black\" stroke=\"black\" points=\"40.4,-188.03 33.54,-179.96 33.87,-190.55 40.4,-188.03\"/>\n",
       "</g>\n",
       "<!-- X_2 -->\n",
       "<g id=\"node4\" class=\"node\">\n",
       "<title>X_2</title>\n",
       "<ellipse fill=\"none\" stroke=\"red\" cx=\"54\" cy=\"-18\" rx=\"27\" ry=\"18\"/>\n",
       "<text text-anchor=\"middle\" x=\"54\" y=\"-14.3\" font-family=\"Times,serif\" font-size=\"14.00\">X_2</text>\n",
       "</g>\n",
       "<!-- T&#45;&gt;X_2 -->\n",
       "<g id=\"edge3\" class=\"edge\">\n",
       "<title>T&#45;&gt;X_2</title>\n",
       "<path fill=\"none\" stroke=\"black\" d=\"M57.65,-215.91C59.68,-205.57 61.98,-192.09 63,-180 67.03,-132.17 67.03,-119.83 63,-72 62.28,-63.5 60.93,-54.31 59.49,-46.01\"/>\n",
       "<polygon fill=\"black\" stroke=\"black\" points=\"62.91,-45.29 57.65,-36.09 56.03,-46.56 62.91,-45.29\"/>\n",
       "</g>\n",
       "<!-- Y -->\n",
       "<g id=\"node3\" class=\"node\">\n",
       "<title>Y</title>\n",
       "<ellipse fill=\"none\" stroke=\"black\" cx=\"27\" cy=\"-90\" rx=\"27\" ry=\"18\"/>\n",
       "<text text-anchor=\"middle\" x=\"27\" y=\"-86.3\" font-family=\"Times,serif\" font-size=\"14.00\">Y</text>\n",
       "</g>\n",
       "<!-- X_1&#45;&gt;Y -->\n",
       "<g id=\"edge2\" class=\"edge\">\n",
       "<title>X_1&#45;&gt;Y</title>\n",
       "<path fill=\"none\" stroke=\"black\" d=\"M27,-143.7C27,-135.98 27,-126.71 27,-118.11\"/>\n",
       "<polygon fill=\"black\" stroke=\"black\" points=\"30.5,-118.1 27,-108.1 23.5,-118.1 30.5,-118.1\"/>\n",
       "</g>\n",
       "<!-- Y&#45;&gt;X_2 -->\n",
       "<g id=\"edge4\" class=\"edge\">\n",
       "<title>Y&#45;&gt;X_2</title>\n",
       "<path fill=\"none\" stroke=\"black\" d=\"M33.4,-72.41C36.51,-64.34 40.33,-54.43 43.83,-45.35\"/>\n",
       "<polygon fill=\"black\" stroke=\"black\" points=\"47.13,-46.55 47.46,-35.96 40.6,-44.03 47.13,-46.55\"/>\n",
       "</g>\n",
       "</g>\n",
       "</svg>\n"
      ],
      "text/plain": [
       "<graphviz.graphs.Digraph at 0x7faae0727250>"
      ]
     },
     "execution_count": 24,
     "metadata": {},
     "output_type": "execute_result"
    }
   ],
   "source": [
    "g = gr.Digraph()\n",
    "\n",
    "g.edge(\"T\", \"X_1\"), g.node(\"T\", color=\"gold\"), g.edge(\"X_1\", \"Y\"), g.node(\"X_1\", color=\"red\")\n",
    "g.edge(\"T\", \"X_2\"), g.edge(\"Y\", \"X_2\"), g.node(\"X_2\", color=\"red\")\n",
    "\n",
    "g"
   ]
  },
  {
   "cell_type": "markdown",
   "metadata": {},
   "source": [
    "## Key Ideas\n",
    "\n",
    "In this section, we've looked at variables that are not confounders and if we should add them or not to our model for causal identification. We've seen that variables that are good predictors of the outcome $y$ should be added to the model even if they don't predict $T$ (are not confounders). This is because predicting $Y$ lowers its variance and makes it more likely that we will see statistically significant results when estimating the causal effect. Next, we've seen that it is a bad idea to add variables that predict the treatment but not the outcome. Those variables reduce the variability of the treatment, making it harder for us to find the causal effect. Finally, we've looked at selection bias. This is bias that arises when we control for variables in the causal path from the treatment to the outcome or variables that are common effects of the treatment and the outcome.\n",
    "\n",
    "## References\n",
    "\n",
    "I like to think of this entire book as a tribute to Joshua Angrist, Alberto Abadie and Christopher Walters for their amazing Econometrics class. Most of the ideas here are taken from their classes at the American Economic Association. Watching them is what is keeping me sane during this tough year of 2020.\n",
    "* [Cross-Section Econometrics](https://www.aeaweb.org/conference/cont-ed/2017-webcasts)\n",
    "* [Mastering Mostly Harmless Econometrics](https://www.aeaweb.org/conference/cont-ed/2020-webcasts)\n",
    "\n",
    "I'll also like to reference the amazing books from Angrist. They have shown me that Econometrics, or 'Metrics as they call it, is not only extremely useful but also profoundly fun.\n",
    "\n",
    "* [Mostly Harmless Econometrics](https://www.mostlyharmlesseconometrics.com/)\n",
    "* [Mastering 'Metrics](https://www.masteringmetrics.com/)\n",
    "\n",
    "My final reference is Miguel Hernan and Jamie Robins' book. It has been my trustworthy companion in the most thorny causal questions I had to answer.\n",
    "\n",
    "* [Causal Inference Book](https://www.hsph.harvard.edu/miguel-hernan/causal-inference-book/)\n",
    "\n",
    "![img](./data/img/poetry.png)\n",
    "\n",
    "## Contribute\n",
    "\n",
    "Causal Inference for the Brave and True is an open-source material on causal inference, the statistics of science. It uses only free software, based in Python. Its goal is to be accessible monetarily and intellectually.\n",
    "If you found this book valuable and you want to support it, please go to [Patreon](https://www.patreon.com/causal_inference_for_the_brave_and_true). If you are not ready to contribute financially, you can also help by fixing typos, suggesting edits or giving feedback on passages you didn't understand. Just go to the book's repository and [open an issue](https://github.com/matheusfacure/python-causality-handbook/issues). Finally, if you liked this content, please share it with others who might find it useful and give it a [star on GitHub](https://github.com/matheusfacure/python-causality-handbook/stargazers)."
   ]
  }
 ],
 "metadata": {
  "celltoolbar": "Tags",
  "kernelspec": {
   "display_name": "Python [conda env:root] *",
   "language": "python",
   "name": "conda-root-py"
  },
  "language_info": {
   "codemirror_mode": {
    "name": "ipython",
    "version": 3
   },
   "file_extension": ".py",
   "mimetype": "text/x-python",
   "name": "python",
   "nbconvert_exporter": "python",
   "pygments_lexer": "ipython3",
   "version": "3.7.12"
  },
  "toc": {
   "base_numbering": 1,
   "nav_menu": {},
   "number_sections": true,
   "sideBar": true,
   "skip_h1_title": false,
   "title_cell": "Table of Contents",
   "title_sidebar": "Contents",
   "toc_cell": false,
   "toc_position": {},
   "toc_section_display": true,
   "toc_window_display": false
  },
  "varInspector": {
   "cols": {
    "lenName": 16,
    "lenType": 16,
    "lenVar": 40
   },
   "kernels_config": {
    "python": {
     "delete_cmd_postfix": "",
     "delete_cmd_prefix": "del ",
     "library": "var_list.py",
     "varRefreshCmd": "print(var_dic_list())"
    },
    "r": {
     "delete_cmd_postfix": ") ",
     "delete_cmd_prefix": "rm(",
     "library": "var_list.r",
     "varRefreshCmd": "cat(var_dic_list()) "
    }
   },
   "types_to_exclude": [
    "module",
    "function",
    "builtin_function_or_method",
    "instance",
    "_Feature"
   ],
   "window_display": false
  }
 },
 "nbformat": 4,
 "nbformat_minor": 2
}
